(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    241094,       4869]
NotebookOptionsPosition[     39733,       1011]
NotebookOutlinePosition[    233569,       4688]
CellTagsIndexPosition[    232850,       4664]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["BitListToByteArray", "Title",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.7779137027407894`*^9, 3.777913710140749*^9}},
 CellTags->{"Title", "TabNext"},
 CellID->362346026,ExpressionUUID->"70087efc-7871-4cb3-a669-4f7949f069ce"],

Cell["Converts a list of bits to a byte array.", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.777913713652731*^9, 3.7779137220286903`*^9}},
 CellTags->{"Description", "TabNext"},
 CellID->450900334,ExpressionUUID->"23955fef-9cf2-4bbc-ace8-c103806b8b0e"],

Cell[CellGroupData[{

Cell[TextData[{
 "Definition",
 Cell[BoxData[
  TemplateBox[{"Definition",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Define your function using the name you gave in the Title line above. \
You can add input cells and extra code to define additional input cases or \
prerequisites. All definitions, including dependencies, will be included in \
the generated resource function.\n\nThis section should be evaluated before \
creating the Examples section below.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoDefinition"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "ed524d79-c3fb-4285-9855-94b50f9641c5"]
}], "Section",
 Deletable->False,
 DefaultNewCellStyle->"Input",
 CellTags->"Definition",
 CellID->474513213,ExpressionUUID->"78fcea70-ff17-4367-bef0-6f83b80bdaf2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"BitListToByteArray", "[", "bits_List", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"PrintTemporary", "[", 
      RowBox[{"ProgressIndicator", "[", 
       RowBox[{"Appearance", "\[Rule]", "\"\<Percolate\>\""}], "]"}], "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"ByteArray", "[", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"FromDigits", "[", 
          RowBox[{"#", ",", "2"}], "]"}], "&"}], ",", 
        RowBox[{"Partition", "[", 
         RowBox[{"bits", ",", "8"}], "]"}]}], "]"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.7779137281036606`*^9, 3.7779138049732895`*^9}},
 CellLabel->"In[23]:=",
 CellID->304931571,ExpressionUUID->"e4c01350-a6fe-4d84-8277-254dde81842d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Documentation", "Section",
 Deletable->False,
 CellTags->"Documentation",
 CellID->855965831,ExpressionUUID->"b1e68fa7-1c7d-4f5f-bc29-e59b748ac39b"],

Cell[CellGroupData[{

Cell[TextData[{
 "Usage",
 Cell[BoxData[
  TemplateBox[{"Usage",Cell[
     BoxData[
      FrameBox[
       Cell[
        TextData[{
         "Document input usage cases by first typing an input structure, then \
pressing ", 
          Cell[
           BoxData[
            StyleBox[
             DynamicBox[
              ToBoxes[
               
               If[$OperatingSystem === "MacOSX", "\[ReturnKey]", 
                "\[EnterKey]"], StandardForm], SingleEvaluation -> True, 
              Evaluator -> "System"], ShowStringCharacters -> False]]], 
          " to add a brief explanation of the function\[CloseCurlyQuote]s \
behavior for that structure. Pressing ", 
          Cell[
           BoxData[
            StyleBox[
             DynamicBox[
              ToBoxes[
               
               If[$OperatingSystem === "MacOSX", "\[ReturnKey]", 
                "\[EnterKey]"], StandardForm], SingleEvaluation -> True, 
              Evaluator -> "System"], ShowStringCharacters -> False]]], 
          " repeatedly will create new cases as needed. Every input usage \
case defined above should be demonstrated explicitly here.\n\nSee existing \
documentation pages for examples."}], "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoUsage"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "9f732829-8cf8-4d4c-bb69-6bfe81a225c5"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"},
 CellTags->"Usage",
 CellID->643497520,ExpressionUUID->"cfa7d8a4-d6b9-4bfc-9f4e-af30e76b4eca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BitListToByteArray", "[", 
  StyleBox["bits", "TI"], "]"}]], "UsageInputs",
 CellChangeTimes->{{3.7779138111412554`*^9, 3.7779138133242464`*^9}},
 FontFamily->"Source Sans Pro",
 CellTags->"TabNext",
 CellID->341013815,ExpressionUUID->"a85c4f60-0d9c-4a46-8e92-9a5d888c0b18"],

Cell[TextData[{
 "converts the list ",
 Cell[BoxData[
  StyleBox["bits", "TI"]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "7598e738-2873-46a5-bb39-c7e9b6b287de"],
 " to a ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    StyleBox["ByteArray", "SymbolsRefLink",
     ShowStringCharacters->True,
     FontFamily->"Source Sans Pro"],
    BaseStyle->Dynamic[
      FEPrivate`If[
       CurrentValue["MouseOver"], {
       "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
       "Link"}]],
    ButtonData->"paclet:ref/ByteArray",
    ContentPadding->False],
   MouseAppearanceTag["LinkHand"]]], "InlineFormula",
  FontFamily->"Source Sans Pro",ExpressionUUID->
  "fb73d64e-8a9c-4422-bd0a-e7c4e8406e3d"],
 "."
}], "UsageDescription",
 CellChangeTimes->{{3.777913818547216*^9, 3.7779138352211385`*^9}, {
  3.7779141220741453`*^9, 3.777914130857165*^9}},
 CellTags->"TabNext",
 CellID->584004037,ExpressionUUID->"742dc79a-3ed9-4f6e-b9e7-2b6e6e183ecc"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Details & Options",
 Cell[BoxData[
  TemplateBox[{"Details & Options",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Give a detailed explanation of how the function is used and \
configured (e.g. acceptable input types, result formats, options \
specifications, background information). This section may include multiple \
cells, bullet lists, tables, hyperlinks and additional styles/structures as \
needed.\n\nAdd any other information that may be relevant, such as when the \
function was first discovered or how and why it is used within a given field. \
Include all relevant background or contextual information related to the \
function, its development, and its usage.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoDetailsOptions"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "9991b72b-cd92-4d3b-8240-55b27fb55fc1"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Notes",
 CellTags->"Details & Options",
 CellID->66019318,ExpressionUUID->"1f3bce55-0a4e-49dc-9f1a-674f4944106a"],

Cell["\<\
The output typically requires 64 times less memory than the input.\
\>", "Notes",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.777914139103348*^9, 3.7779141487545614`*^9}},
 CellTags->"TabNext",
 CellID->521904482,ExpressionUUID->"50cf8114-dbba-436a-8c92-45a4b4356a58"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Examples",
 Cell[BoxData[
  TemplateBox[{"Examples",Cell[
     BoxData[
      FrameBox[
       Cell[
        TextData[{
         "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \
the most basic use case and describing each example in a preceding text cell.\
\n\nWithin a group, individual examples can be delimited by inserting page \
breaks between them (either using ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"[Right-click]\"", FontFamily -> "Source Sans Pro Semibold", 
                FontColor -> GrayLevel[0.286275], FontSize -> 14, 
                StripOnInput -> False], 
               StyleBox[
               "\" \[FilledRightTriangle] \"", FontFamily -> 
                "Source Sans Pro", FontSize -> 13.86, FontColor -> 
                GrayLevel[0.5], StripOnInput -> False], 
               StyleBox[
               "\"Insert Page Break\"", FontFamily -> 
                "Source Sans Pro Semibold", FontColor -> GrayLevel[0.286275], 
                FontSize -> 14, StripOnInput -> False]}, "RowDefault"], 
             ShowStringCharacters -> False]]], 
          " between cells or through the menu using ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"Insert\"", FontFamily -> "Source Sans Pro Semibold", 
                FontColor -> GrayLevel[0.286275], FontSize -> 14, 
                StripOnInput -> False], 
               StyleBox[
               "\" \[FilledRightTriangle] \"", FontFamily -> 
                "Source Sans Pro", FontSize -> 13.86, FontColor -> 
                GrayLevel[0.5], StripOnInput -> False], 
               StyleBox[
               "\"Page Break\"", FontFamily -> "Source Sans Pro Semibold", 
                FontColor -> GrayLevel[0.286275], FontSize -> 14, 
                StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> 
             False]]], 
          ").\n\nExamples should be grouped into Subsection and Subsubsection \
cells similarly to existing documentation pages. Here are some typical \
Subsection names and the types of examples they normally contain:\n  ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"\[FilledSmallSquare] \"", FontColor -> 
                RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
               StyleBox[
               "\"Basic Examples: \"", FontFamily -> 
                "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> 
                False]}, "RowDefault"], ShowStringCharacters -> False]]], 
          "most basic function usage\n  ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"\[FilledSmallSquare] \"", FontColor -> 
                RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
               StyleBox[
               "\"Scope: \"", FontFamily -> "Source Sans Pro Semibold", 
                FontSize -> 14, StripOnInput -> False]}, "RowDefault"], 
             ShowStringCharacters -> False]]], 
          "input and display conventions, standard computational attributes \
(e.g. threading over lists)\n  ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"\[FilledSmallSquare] \"", FontColor -> 
                RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
               StyleBox[
               "\"Options: \"", FontFamily -> "Source Sans Pro Semibold", 
                FontSize -> 14, StripOnInput -> False]}, "RowDefault"], 
             ShowStringCharacters -> False]]], 
          "available options and parameters for the function\n  ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"\[FilledSmallSquare] \"", FontColor -> 
                RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
               StyleBox[
               "\"Applications: \"", FontFamily -> "Source Sans Pro Semibold",
                 FontSize -> 14, StripOnInput -> False]}, "RowDefault"], 
             ShowStringCharacters -> False]]], 
          "standard industry or academic applications\n  ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"\[FilledSmallSquare] \"", FontColor -> 
                RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
               StyleBox[
               "\"Properties and Relations: \"", FontFamily -> 
                "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> 
                False]}, "RowDefault"], ShowStringCharacters -> False]]], 
          "how the function relates to other functions\n  ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"\[FilledSmallSquare] \"", FontColor -> 
                RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
               StyleBox[
               "\"Possible Issues: \"", FontFamily -> 
                "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> 
                False]}, "RowDefault"], ShowStringCharacters -> False]]], 
          "limitations or unexpected behavior a user might experience\n  ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"\[FilledSmallSquare] \"", FontColor -> 
                RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
               StyleBox[
               "\"Neat Examples: \"", FontFamily -> 
                "Source Sans Pro Semibold", FontSize -> 14, StripOnInput -> 
                False]}, "RowDefault"], ShowStringCharacters -> False]]], 
          "particularly interesting, unconventional, or otherwise unique \
usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, 
       FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", 
     Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "a450ebe5-2859-4ec1-b0a3-d787a14d7309"]
}], "Section",
 Deletable->False,
 CellTags->"Examples",
 CellID->180595041,ExpressionUUID->"47610c78-ad2a-45bf-8fa7-97e0228c8e97"],

Cell[CellGroupData[{

Cell["Basic Examples", "Subsection",
 CellID->462042388,ExpressionUUID->"c00b2def-9649-44fb-ae46-09b4303bb783"],

Cell["Create a list of bits:", "Text",
 CellChangeTimes->{{3.777914159441803*^9, 3.777914163120884*^9}},
 CellID->13078159,ExpressionUUID->"a36f21ce-de9d-4d11-bf4b-6b35a8124f25"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"bits", "=", 
  RowBox[{"RandomInteger", "[", 
   RowBox[{"1", ",", "160"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7779141656989355`*^9, 3.7779141736581144`*^9}},
 CellLabel->"In[29]:=",
 CellID->443871870,ExpressionUUID->"570f1661-6c99-4b8c-9332-84d0a6fe6389"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", 
   ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
   "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", 
   ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
   "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", 
   ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", 
   "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", 
   ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", 
   "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", 
   ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", 
   "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", 
   ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", 
   "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", 
   ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", 
   "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", 
   ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", 
   "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", 
   ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
   "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", 
   ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", 
   "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", 
   ",", "0", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{3.7779141751311436`*^9},
 CellLabel->"Out[29]=",
 CellID->713311768,ExpressionUUID->"bfdf5818-7979-41cb-aa29-139ad5920363"]
}, Open  ]],

Cell["Convert to a byte array:", "Text",
 CellChangeTimes->{{3.77791419185252*^9, 3.7779142016497297`*^9}},
 CellID->373103848,ExpressionUUID->"5a03d9c6-21e8-4450-99d9-d58d28451758"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ba", "=", 
  RowBox[{"BitListToByteArray", "[", "bits", "]"}]}]], "Input",
 CellChangeTimes->{{3.777914184779357*^9, 3.777914210866934*^9}},
 CellLabel->"In[31]:=",
 CellID->41266861,ExpressionUUID->"4126a292-f300-40ec-9874-7d89fdc98dc7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["ByteArray",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               TagBox["\"20 bytes\"", "SummaryItem"]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               TagBox["\"20 bytes\"", "SummaryItem"]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  ByteArray[{85, 160, 247, 97, 30, 215, 242, 130, 145, 176, 62, 84, 125, 123, 
   253, 34, 254, 8, 114, 105}],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.77791418624039*^9, 3.777914212358967*^9}},
 CellLabel->"Out[31]=",
 CellID->146647552,ExpressionUUID->"7334e791-43bf-4ca8-9956-24f4736c36d2"]
}, Open  ]],

Cell["\<\
Compare the number of bytes needed to represent the expressions:\
\>", "Text",
 CellChangeTimes->{{3.777914227949317*^9, 3.777914250449812*^9}},
 CellID->60954047,ExpressionUUID->"2c78ff40-f7f3-4848-982d-4c0dd6eece88"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ByteCount", "/@", 
  RowBox[{"{", 
   RowBox[{"bits", ",", "ba"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.777914214073003*^9, 3.7779142197871294`*^9}},
 CellLabel->"In[32]:=",
 CellID->418152492,ExpressionUUID->"db25d697-aebe-4286-9263-f1195110afe0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1392", ",", "116"}], "}"}]], "Output",
 CellChangeTimes->{3.777914220377143*^9},
 CellLabel->"Out[32]=",
 CellID->407093734,ExpressionUUID->"e37da2a9-2060-4423-a68c-e1e8902d0b2d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Scope", "Subsection",
 CellID->964056545,ExpressionUUID->"9582da32-f37b-4d2e-8f4d-17bb5d259cd5"],

Cell["\<\
Text about additional examples expanding scope (and see other sections for \
options, applications, etc):\
\>", "Text",
 CellID->649685796,ExpressionUUID->"420f3c8a-0466-4e26-990a-047361e5fb25"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MyFunction", "[", 
  RowBox[{"x", ",", "y", ",", "z"}], "]"}]], "Input",
 CellLabel->"In[2]:= ",
 CellID->836153427,ExpressionUUID->"d53e6065-9347-4c53-921d-ed8f16f7fba5"],

Cell[BoxData[
 RowBox[{"x", " ", "y", " ", "z"}]], "Output",
 CellLabel->"Out[2]= ",
 CellID->147179208,ExpressionUUID->"e8e84b47-a8c1-469b-9406-3d7d7e875384"]
}, Open  ]]
}, Open  ]],

Cell["Options", "Subsection",
 CellID->776923543,ExpressionUUID->"42e7af10-d41c-4a88-a19c-021d7a901063"],

Cell["Applications", "Subsection",
 CellID->568056528,ExpressionUUID->"99f3872f-4d56-4a7c-bd73-4220819719a5"],

Cell["Properties and Relations", "Subsection",
 CellID->754506620,ExpressionUUID->"fffaf27f-6150-4b0e-9d96-4bad477d1d28"],

Cell["Possible Issues", "Subsection",
 CellID->92483860,ExpressionUUID->"411de50e-2d7c-4bad-a81d-5e6ba099b270"],

Cell["Neat Examples", "Subsection",
 CellID->540091361,ExpressionUUID->"b27395ef-c2de-4269-aab9-2196245045fb"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Source & Additional Information", "Section",
 Deletable->False,
 CellTags->"Source & Additional Information",
 CellID->318391102,ExpressionUUID->"718fa7ec-c93f-4111-bd9f-38003aace4fa"],

Cell[CellGroupData[{

Cell[TextData[{
 "Contributed By",
 Cell[BoxData[
  TemplateBox[{"Contributed By",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Enter the name of the person, people or organization that should be \
publicly credited with contributing this function.", "MoreInfoText"], 
       Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> 
       GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> 
     True, CellTags -> {"SectionMoreInfoContributedBy"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "02ef26d6-e519-443d-b7c6-e53ab2a419ff"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Contributed By",
 CellID->127820888,ExpressionUUID->"2cdb8c41-1cb8-4830-aacf-4e4effc97303"],

Cell["Arnoud Buzing", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.777914308691101*^9, 3.777914310043126*^9}},
 CellTags->"TabNext",
 CellID->832483124,ExpressionUUID->"3f48411e-19dc-4c50-84d7-95531ab73530"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Keywords",
 Cell[BoxData[
  TemplateBox[{"Keywords",Cell[
     BoxData[
      FrameBox[
       Cell[
       "List relevant terms (e.g. functional areas, algorithm names, related \
concepts) that should be used to include the function in search results.", 
        "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, 
       FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", 
     Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "a4a7366d-a8e8-412f-b984-82bd17b06eca"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Keywords",
 CellID->547400482,ExpressionUUID->"ecf567d6-7369-47fd-a70e-cfe38cd1fc51"],

Cell["keyword 1", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->123227828,ExpressionUUID->"08a9ae85-59d9-404b-a31a-38bb53148fee"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Categories", "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Categories",
 CellID->749076926,ExpressionUUID->"6e7c1451-5d94-4df8-80c0-451cabb1197e"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TemplateBox[{
      CheckboxBox[False, {False, "Cloud & Deployment"}],"\" \"",
       "\"Cloud & Deployment\""},
      "RowDefault"], 
     TemplateBox[{
      CheckboxBox[
       "Core Language & Structure", {False, "Core Language & Structure"}],
       "\" \"","\"Core Language & Structure\""},
      "RowDefault"]},
    {
     TemplateBox[{
      CheckboxBox[
       "Data Manipulation & Analysis", {
        False, "Data Manipulation & Analysis"}],"\" \"",
       "\"Data Manipulation & Analysis\""},
      "RowDefault"], 
     TemplateBox[{
      CheckboxBox[False, {False, "Engineering Data & Computation"}],"\" \"",
       "\"Engineering Data & Computation\""},
      "RowDefault"]},
    {
     TemplateBox[{
      CheckboxBox[False, {False, "External Interfaces & Connections"}],
       "\" \"","\"External Interfaces & Connections\""},
      "RowDefault"], 
     TemplateBox[{
      CheckboxBox[False, {False, "Financial Data & Computation"}],"\" \"",
       "\"Financial Data & Computation\""},
      "RowDefault"]},
    {
     TemplateBox[{
      CheckboxBox[False, {False, "Geographic Data & Computation"}],"\" \"",
       "\"Geographic Data & Computation\""},
      "RowDefault"], 
     TemplateBox[{
      CheckboxBox[False, {False, "Geometry"}],"\" \"","\"Geometry\""},
      "RowDefault"]},
    {
     TemplateBox[{
      CheckboxBox[False, {False, "Graphs & Networks"}],"\" \"",
       "\"Graphs & Networks\""},
      "RowDefault"], 
     TemplateBox[{
      CheckboxBox[False, {False, "Higher Mathematical Computation"}],"\" \"",
       "\"Higher Mathematical Computation\""},
      "RowDefault"]},
    {
     TemplateBox[{CheckboxBox[False, {False, "Images"}],"\" \"","\"Images\""},
      "RowDefault"], 
     TemplateBox[{
      CheckboxBox[False, {False, "Just For Fun"}],"\" \"","\"Just For Fun\""},
      "RowDefault"]},
    {
     TemplateBox[{
      CheckboxBox[
       False, {False, "Knowledge Representation & Natural Language"}],"\" \"",
       "\"Knowledge Representation & Natural Language\""},
      "RowDefault"], 
     TemplateBox[{
      CheckboxBox[False, {False, "Machine Learning"}],"\" \"",
       "\"Machine Learning\""},
      "RowDefault"]},
    {
     TemplateBox[{
      CheckboxBox[False, {False, "Notebook Documents & Presentation"}],
       "\" \"","\"Notebook Documents & Presentation\""},
      "RowDefault"], 
     TemplateBox[{
      CheckboxBox["Programming Utilities", {False, "Programming Utilities"}],
       "\" \"","\"Programming Utilities\""},
      "RowDefault"]},
    {
     TemplateBox[{
      CheckboxBox[False, {False, "Repository Tools"}],"\" \"",
       "\"Repository Tools\""},
      "RowDefault"], 
     TemplateBox[{
      CheckboxBox[
       False, {False, "Scientific and Medical Data & Computation"}],"\" \"",
       "\"Scientific and Medical Data & Computation\""},
      "RowDefault"]},
    {
     TemplateBox[{
      CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}],
       "\" \"","\"Social, Cultural & Linguistic Data\""},
      "RowDefault"], 
     TemplateBox[{CheckboxBox[False, {False, "Sound"}],"\" \"","\"Sound\""},
      "RowDefault"]},
    {
     TemplateBox[{
      CheckboxBox[False, {False, "Strings & Text"}],"\" \"",
       "\"Strings & Text\""},
      "RowDefault"], 
     TemplateBox[{
      CheckboxBox[False, {False, "Symbolic & Numeric Computation"}],"\" \"",
       "\"Symbolic & Numeric Computation\""},
      "RowDefault"]},
    {
     TemplateBox[{
      CheckboxBox[False, {False, "System Operation & Setup"}],"\" \"",
       "\"System Operation & Setup\""},
      "RowDefault"], 
     TemplateBox[{
      CheckboxBox[False, {False, "Time-Related Computation"}],"\" \"",
       "\"Time-Related Computation\""},
      "RowDefault"]},
    {
     TemplateBox[{
      CheckboxBox[False, {False, "User Interface Construction"}],"\" \"",
       "\"User Interface Construction\""},
      "RowDefault"], 
     TemplateBox[{
      CheckboxBox[False, {False, "Visualization & Graphics"}],"\" \"",
       "\"Visualization & Graphics\""},
      "RowDefault"]}
   },
   AutoDelete->False,
   BaseStyle->{"ControlStyle"},
   ColumnsEqual->True,
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{},
   RowsEqual->True],
  "Grid"]], "Output",
 Editable->False,
 Deletable->False,
 CellChangeTimes->{{3.7779143122401805`*^9, 3.7779143170382833`*^9}},
 CellTags->"CategoriesCell",
 CellID->379366600,ExpressionUUID->"31ebd0d5-cb63-4e29-b2f0-510251a5aee6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Related Symbols",
 Cell[BoxData[
  TemplateBox[{"Related Symbols",Cell[
     BoxData[
      FrameBox[
       Cell[
       "List up to twenty documented, system-level Wolfram Language symbols \
related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoRelatedSymbols"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "16d25d9b-5b85-4c40-9322-b75579e2b283"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Related Symbols",
 CellID->161079978,ExpressionUUID->"760f0f2c-1541-4b9d-abaf-70b0a9de66ac"],

Cell["ByteArray", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.7779143207313623`*^9, 3.7779143220993924`*^9}},
 CellTags->"TabNext",
 CellID->79477165,ExpressionUUID->"5b4dfc03-5d39-4c27-96ec-9b7a7c6ff066"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Related Resource Objects",
 Cell[BoxData[
  TemplateBox[{"Related Resource Objects",Cell[
     BoxData[
      FrameBox[
       Cell[
       "List the names of published resource objects from any Wolfram \
repository that are related to this function.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "f5193600-6eff-4bfe-9fa1-86fca91f804c"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Related Resource Objects",
 CellID->588449267,ExpressionUUID->"2fb79ca1-8731-4f69-8eb0-f0fb5dbf9abb"],

Cell["Resource Name (resources from any Wolfram repository)", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->960273585,ExpressionUUID->"8754a631-cbb0-4811-88b5-29f231f0af8f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Source/Reference Citation",
 Cell[BoxData[
  TemplateBox[{"Source/Reference Citation",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Give a bibliographic-style citation for the original source of the \
function and/or its components (e.g. a published paper, algorithm, or code \
repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 
       20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], 
     "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "38caddd7-1b3b-4dd0-952c-707960fef876"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Source/Reference Citation",
 CellID->642091068,ExpressionUUID->"9cf52c61-5720-4521-9ab2-9ad1d17d2a2e"],

Cell["Source, reference or citation information", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->343081869,ExpressionUUID->"cdebd426-053c-465a-9ba4-6560c6b661c5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Links",
 Cell[BoxData[
  TemplateBox[{"Links",Cell[
     BoxData[
      FrameBox[
       Cell[
       "List additional URLs or hyperlinks for external information related \
to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoLinks"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "93270e0e-494f-4b95-8809-66fa7726037b"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->"Links",
 CellID->521525586,ExpressionUUID->"93c919cb-488c-4641-b194-6e044edc5988"],

Cell["Link to other related material", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->485448166,ExpressionUUID->"c0f4f617-c84f-44bd-85e5-0be5222ad510"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Tests",
 Cell[BoxData[
  TemplateBox[{"Tests",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Specify an optional list of tests for verifying that the function is \
working properly in any environment. Tests can be specified as Input/Output \
cell pairs or as symbolic VerificationTest expressions for including \
additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoTests"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "c750b51a-a444-41b3-847c-60e478dd5de6"]
}], "Subsection",
 Deletable->False,
 DefaultNewCellStyle->"Input",
 CellTags->"Tests",
 CellID->74308299,ExpressionUUID->"78395eff-37c5-478e-92bb-0a078f0e1ffa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MyFunction", "[", 
  RowBox[{"x", ",", "y"}], "]"}]], "Input",
 CellLabel->"In[3]:=",
 CellID->667877521,ExpressionUUID->"7079aefe-efc8-475b-a739-8727047ddfa7"],

Cell[BoxData[
 RowBox[{"x", " ", "y"}]], "Output",
 CellLabel->"Out[3]=",
 CellID->993233288,ExpressionUUID->"2fa79b2b-ef61-42fc-8c9c-3e17adf32522"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Author Notes", "Section",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Author Notes",
 CellID->795110225,ExpressionUUID->"4e6e2d43-6847-458d-add6-ec6770690e9f"],

Cell["Additional information about limitations, issues, etc.", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->567921317,ExpressionUUID->"d47a3133-e661-4f75-a625-9bf4eb4a831f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Submission Notes",
 Cell[BoxData[
  TemplateBox[{"Submission Notes",Cell[
     BoxData[
      FrameBox[
       Cell[
       "Enter any additional information that you would like to communicate \
to the reviewer here. This section will not be included in the published \
resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 
       20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], 
     "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoSubmissionNotes"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]],ExpressionUUID->
  "7dbce723-d256-4da3-8d73-3024ec9eb776"]
}], "Section",
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->"Submission Notes",
 CellID->843283583,ExpressionUUID->"edb2fdca-20be-4607-8665-acfff77a8133"],

Cell["Additional information for the reviewer.", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->920818074,ExpressionUUID->"09cb399d-beff-4b1b-affc-2348a830fe6f"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{775, 872},
WindowMargins->{{Automatic, 397}, {175, Automatic}},
Visible->True,
DockedCells->{
  Cell[
   BoxData[
    TemplateBox[{}, "MainGridTemplate"]], "DockedCell", 
   CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, 
   CellTags -> {"MainDockedCell"}], 
  Cell[
   BoxData[
    TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", 
   TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, 
   Background -> RGBColor[0.996078, 0.941176, 0.921569], 
   CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, 
   CellFrameColor -> GrayLevel[0.75], CellOpen -> Dynamic[
     CurrentValue[
      EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, False]]], 
  Cell[
   BoxData[
    StyleBox[
     TagBox[
      DynamicModuleBox[{Typeset`var$$ = False}, 
       InterpretationBox[
        StyleBox[
         PaneSelectorBox[{False -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   StyleBox[
                    DynamicBox[
                    ToBoxes[
                    DateString[
                    TimeZoneConvert[
                    DateObject[
                    3.7779143636933144`17.329827098437413*^9, TimeZone -> 
                    0]], {"MonthName", " ", "DayShort", ", ", "Year", " ", 
                    "Hour12Short", ":", "Minute", " ", "AMPMLowerCase"}], 
                    StandardForm], SingleEvaluation -> True, Evaluator -> 
                    "System"], FontSlant -> Italic, FontColor -> 
                    GrayLevel[0.5], FontSize -> 0.9 Inherited, StripOnInput -> 
                    False], "\"   \"", 
                   TagBox[
                    GridBox[{{"\"Published to the cloud\"", 
                    
                    TemplateBox[{
                    "\"\[RightGuillemet]\"", 
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"}, "HyperlinkURL"]}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"ResourceFunction:\"", 
                    TemplateBox[{
                    InterpretationBox[
                    TagBox[
                    StyleBox[
                    StyleBox[
                    FrameBox[
                    GridBox[{{
                    AdjustmentBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    "\"[\[FilledSmallSquare]]\"", FontColor -> 
                    GrayLevel[0.45]], "ResourceFunctionIcon"], FontFamily -> 
                    "Source Sans Pro Black", FontWeight -> "Heavy", 
                    PrivateFontOptions -> {"OperatorSubstitution" -> False}, 
                    FontSize -> Rational[10, 13] Inherited, 
                    ShowStringCharacters -> False], BoxBaselineShift -> -0.25,
                     BoxMargins -> {{0, 0}, {-1, -1}}], 
                    StyleBox[
                    StyleBox[
                    "\"BitListToByteArray\"", "ResourceFunctionLabel"], 
                    FontSize -> Rational[12, 13] Inherited, 
                    ShowStringCharacters -> False]}}]], 
                    "ResourceFunctionFrame"], 
                    FrameBoxOptions -> {
                    FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[
                    GrayLevel[0.5, 0.35], 
                    AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> 
                    GrayLevel[0.5, 0.15], 
                    BaseStyle -> {
                    "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> 
                    False}}, 
                    GridBoxOptions -> {
                    FrameStyle -> GrayLevel[1, 0], 
                    GridBoxFrame -> {
                    "Columns" -> {{True}}, "Rows" -> {{True}}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {
                    "FunctionResourceBox", 
                    GrayLevel[0.45], "\"BitListToByteArray\""}], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitListToByteArray", "UUID" -> 
                    "049730fd-9b63-44eb-93dc-f81266d4bb10", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Converts a list of bits to a byte array.", "Version" -> 
                    None, "Categories" -> {
                    "Core Language & Structure", 
                    "Data Manipulation & Analysis", "Programming Utilities"}, 
                    "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "DefinitionNotebookHash" -> "601d6c0e13616515", 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"BitListToByteArray\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox["bits", "TI"], "]"}]], "Description" -> 
                    TextData[{"converts the list ", 
                    Cell[
                    BoxData[
                    StyleBox["bits", "TI"]], "InlineFormula", FontFamily -> 
                    "Source Sans Pro"], " to a ", 
                    Cell[
                    BoxData[
                    TagBox[
                    ButtonBox[
                    StyleBox[
                    "ByteArray", "SymbolsRefLink", ShowStringCharacters -> 
                    True, FontFamily -> "Source Sans Pro"], BaseStyle -> 
                    Dynamic[
                    FEPrivate`If[
                    CurrentValue["MouseOver"], {
                    "Link", FontColor -> RGBColor[
                    0.854902, 0.396078, 0.145098]}, {"Link"}]], ButtonData -> 
                    "paclet:ref/ByteArray", ContentPadding -> False], 
                    MouseAppearanceTag["LinkHand"]]], "InlineFormula", 
                    FontFamily -> "Source Sans Pro"], "."}]]}, "Notes" -> {
                    Cell[
                    "The output typically requires 64 times less memory than \
the input.", "Notes", CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.777914139103348*^9, 
                    3.7779141487545614`*^9}}, CellTags -> "TabNext", CellID -> 
                    521904482]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["t4crj_shm", 3, 1]], 60], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/obj/arnoudb/Resources/049/\
049730fd-9b63-44eb-93dc-f81266d4bb10/download/DefinitionData"], 
                    "RelatedSymbols" -> {"ByteArray"}, "ShortName" -> 
                    "BitListToByteArray", "SymbolName" -> 
                    "FunctionRepository`$049730fd9b6344eb93dcf81266d4bb10`\
BitListToByteArray", "VerificationTests" -> HoldComplete[
                    VerificationTest[
                    ResourceObjectTest`MyFunction[
                    ResourceObjectTest`x, ResourceObjectTest`y], 
                    ResourceObjectTest`x ResourceObjectTest`y, {}, TestID -> 
                    "BitListToByteArray-0001"]], "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/obj/arnoudb/Resources/049/\
049730fd-9b63-44eb-93dc-f81266d4bb10"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                    RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray\"", 
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"], SelectWithContents -> True], 
                    "]"}]]}, "ClickToCopyTemplate"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "b40dda4e-3cce-4f08-a8a3-b945a879235b"]), Appearance -> 
                    None, BoxID -> "b40dda4e-3cce-4f08-a8a3-b945a879235b", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Left, Left, Right, Right}, 
                   "Rows" -> {{Baseline}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {Automatic, Automatic, 
                    Scaled[0.35], Automatic, Fit, Automatic}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   StyleBox[
                    DynamicBox[
                    ToBoxes[
                    DateString[
                    TimeZoneConvert[
                    DateObject[
                    3.7779143636933144`17.329827098437413*^9, TimeZone -> 
                    0]], {"MonthName", " ", "DayShort", ", ", "Year", " ", 
                    "Hour12Short", ":", "Minute", " ", "AMPMLowerCase"}], 
                    StandardForm], SingleEvaluation -> True, Evaluator -> 
                    "System"], FontSlant -> Italic, FontColor -> 
                    GrayLevel[0.5], FontSize -> 0.9 Inherited, StripOnInput -> 
                    False], "\"   \"", 
                   TagBox[
                    GridBox[{{"\"Published to the cloud\"", 
                    
                    TemplateBox[{
                    "\"\[RightGuillemet]\"", 
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"}, "HyperlinkURL"]}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"ResourceFunction:\"", 
                    TemplateBox[{
                    InterpretationBox[
                    TagBox[
                    StyleBox[
                    StyleBox[
                    FrameBox[
                    GridBox[{{
                    AdjustmentBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    "\"[\[FilledSmallSquare]]\"", FontColor -> 
                    GrayLevel[0.45]], "ResourceFunctionIcon"], FontFamily -> 
                    "Source Sans Pro Black", FontWeight -> "Heavy", 
                    PrivateFontOptions -> {"OperatorSubstitution" -> False}, 
                    FontSize -> Rational[10, 13] Inherited, 
                    ShowStringCharacters -> False], BoxBaselineShift -> -0.25,
                     BoxMargins -> {{0, 0}, {-1, -1}}], 
                    StyleBox[
                    StyleBox[
                    "\"BitListToByteArray\"", "ResourceFunctionLabel"], 
                    FontSize -> Rational[12, 13] Inherited, 
                    ShowStringCharacters -> False]}}]], 
                    "ResourceFunctionFrame"], 
                    FrameBoxOptions -> {
                    FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[
                    GrayLevel[0.5, 0.35], 
                    AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> 
                    GrayLevel[0.5, 0.15], 
                    BaseStyle -> {
                    "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> 
                    False}}, 
                    GridBoxOptions -> {
                    FrameStyle -> GrayLevel[1, 0], 
                    GridBoxFrame -> {
                    "Columns" -> {{True}}, "Rows" -> {{True}}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {
                    "FunctionResourceBox", 
                    GrayLevel[0.45], "\"BitListToByteArray\""}], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitListToByteArray", "UUID" -> 
                    "049730fd-9b63-44eb-93dc-f81266d4bb10", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Converts a list of bits to a byte array.", "Version" -> 
                    None, "Categories" -> {
                    "Core Language & Structure", 
                    "Data Manipulation & Analysis", "Programming Utilities"}, 
                    "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "DefinitionNotebookHash" -> "601d6c0e13616515", 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"BitListToByteArray\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox["bits", "TI"], "]"}]], "Description" -> 
                    TextData[{"converts the list ", 
                    Cell[
                    BoxData[
                    StyleBox["bits", "TI"]], "InlineFormula", FontFamily -> 
                    "Source Sans Pro"], " to a ", 
                    Cell[
                    BoxData[
                    TagBox[
                    ButtonBox[
                    StyleBox[
                    "ByteArray", "SymbolsRefLink", ShowStringCharacters -> 
                    True, FontFamily -> "Source Sans Pro"], BaseStyle -> 
                    Dynamic[
                    FEPrivate`If[
                    CurrentValue["MouseOver"], {
                    "Link", FontColor -> RGBColor[
                    0.854902, 0.396078, 0.145098]}, {"Link"}]], ButtonData -> 
                    "paclet:ref/ByteArray", ContentPadding -> False], 
                    MouseAppearanceTag["LinkHand"]]], "InlineFormula", 
                    FontFamily -> "Source Sans Pro"], "."}]]}, "Notes" -> {
                    Cell[
                    "The output typically requires 64 times less memory than \
the input.", "Notes", CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.777914139103348*^9, 
                    3.7779141487545614`*^9}}, CellTags -> "TabNext", CellID -> 
                    521904482]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["t4crj_shm", 3, 1]], 60], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/obj/arnoudb/Resources/049/\
049730fd-9b63-44eb-93dc-f81266d4bb10/download/DefinitionData"], 
                    "RelatedSymbols" -> {"ByteArray"}, "ShortName" -> 
                    "BitListToByteArray", "SymbolName" -> 
                    "FunctionRepository`$049730fd9b6344eb93dcf81266d4bb10`\
BitListToByteArray", "VerificationTests" -> HoldComplete[
                    VerificationTest[
                    ResourceObjectTest`MyFunction[
                    ResourceObjectTest`x, ResourceObjectTest`y], 
                    ResourceObjectTest`x ResourceObjectTest`y, {}, TestID -> 
                    "BitListToByteArray-0001"]], "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/obj/arnoudb/Resources/049/\
049730fd-9b63-44eb-93dc-f81266d4bb10"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                    RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray\"", 
                    
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"], SelectWithContents -> True], 
                    "]"}]]}, "ClickToCopyTemplate"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "b40dda4e-3cce-4f08-a8a3-b945a879235b"]), Appearance -> 
                    None, BoxID -> "b40dda4e-3cce-4f08-a8a3-b945a879235b", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Left, Left, Right, Right}, 
                   "Rows" -> {{Baseline}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {Automatic, Automatic, 
                    Scaled[0.35], Automatic, Fit, Automatic}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}, {"", 
               PaneBox[
                TagBox[
                 GridBox[{{"\"\"", 
                    StyleBox[
                    TagBox[
                    
                    GridBox[{{
                    "\"\[FilledVerySmallSquare]\"", "\"Cloud object:\"", 
                    TemplateBox[{
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://\[Ellipsis]/arnoudb/DeployedResources/Function/\
BitListToByteArray\"", 
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"}, "HyperlinkURL"], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray\"", 
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"], SelectWithContents -> 
                    True]]}, "ClickToCopyTemplate"]}, {
                    "\"\[FilledVerySmallSquare]\"", "\"Visit web page:\"", 
                    TemplateBox[{
                    TagBox[
                    
                    RowBox[{"\"https://www.wolframclou\"", "\[Ellipsis]", 
                    "\"ction/BitListToByteArray\""}], Short[#, 0.75]& ], 
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"}, "HyperlinkURL"]}, {
                    "\"\[FilledVerySmallSquare]\"", "\"Resource object:\"", 
                    TemplateBox[{
                    RowBox[{"ResourceObject", "[", 
                    InterpretationBox[
                    TagBox[
                    StyleBox[
                    StyleBox[
                    FrameBox[
                    GridBox[{{
                    AdjustmentBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    "\"[\[FilledSmallSquare]]\"", FontColor -> 
                    GrayLevel[0.15]], "ResourceFunctionIcon"], FontFamily -> 
                    "Source Sans Pro Black", FontWeight -> "Heavy", 
                    PrivateFontOptions -> {"OperatorSubstitution" -> False}, 
                    FontSize -> Rational[10, 13] Inherited, 
                    ShowStringCharacters -> False], BoxBaselineShift -> -0.25,
                     BoxMargins -> {{0, 0}, {-1, -1}}], 
                    StyleBox[
                    StyleBox[
                    "\"BitListToByteArray\"", "ResourceFunctionLabel"], 
                    FontSize -> Rational[12, 13] Inherited, 
                    ShowStringCharacters -> False]}}]], 
                    "ResourceFunctionFrame"], 
                    FrameBoxOptions -> {
                    FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[
                    GrayLevel[0.5, 0.35], 
                    AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> 
                    GrayLevel[0.5, 0.15], 
                    BaseStyle -> {"StandardForm", LineSpacing -> {0, 0}, 
                    LineBreakWithin -> False}}, 
                    GridBoxOptions -> {
                    FrameStyle -> GrayLevel[1, 0], 
                    GridBoxFrame -> {
                    "Columns" -> {{True}}, "Rows" -> {{True}}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {
                    "FunctionResourceBox", 
                    GrayLevel[0.15], "\"BitListToByteArray\""}], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitListToByteArray", "ShortName" -> 
                    "BitListToByteArray", "UUID" -> 
                    "049730fd-9b63-44eb-93dc-f81266d4bb10", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Converts a list of bits to a byte array.", "SymbolName" -> 
                    "FunctionRepository`$049730fd9b6344eb93dcf81266d4bb10`\
BitListToByteArray", "FunctionLocation" -> None]]], Selectable -> False], 
                    "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["ResourceObject", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}, 
                    ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Converts a list of bits to a byte array.\"", 
                    "SummaryItem"]}], "\[SpanFromLeft]"}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}, 
                    ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Converts a list of bits to a byte array.\"", 
                    "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"UUID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"049730fd-9b63-44eb-93dc-f81266d4bb10\"", 
                    "SummaryItem"]}], ""}, {
                    RowBox[{
                    TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["None", "SummaryItem"]}], ""}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    ResourceObject[
                    Association[
                    "Name" -> "BitListToByteArray", "ShortName" -> 
                    "BitListToByteArray", "UUID" -> 
                    "049730fd-9b63-44eb-93dc-f81266d4bb10", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Converts a list of bits to a byte array.", "SymbolName" -> 
                    "FunctionRepository`$049730fd9b6344eb93dcf81266d4bb10`\
BitListToByteArray", "FunctionLocation" -> None]], Selectable -> False, 
                    Editable -> False, SelectWithContents -> True]]}, 
                    "ClickToCopyTemplate"]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {Automatic, Automatic, Fit}, 
                    "Rows" -> {{Automatic}}}], "Grid"], FontColor -> 
                    GrayLevel[0.5], FontSize -> 12, StripOnInput -> False]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                  False, GridBoxDividers -> {
                   "Columns" -> {{None}}, "RowsIndexed" -> {-1 -> GrayLevel[
                    Rational[239, 255]]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {Automatic, Fit}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {1, {}, 1}, "Rows" -> {1, {}, 2}}], "Grid"], 
                ImageMargins -> 0]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`var$$], Alignment -> Automatic, ImageSize -> 
          Automatic, ImageMargins -> 0, BaseStyle -> {}, DefaultBaseStyle -> 
          "OpenerView", BaselinePosition -> Baseline], Deployed -> False, 
         StripOnInput -> False], 
        OpenerView[{
          Grid[{{
             Style[
              Dynamic[
               DateString[
                TimeZoneConvert[
                 DateObject[
                 3.7779143636933144`17.329827098437413*^9, TimeZone -> 0]], {
                "MonthName", " ", "DayShort", ", ", "Year", " ", 
                 "Hour12Short", ":", "Minute", " ", "AMPMLowerCase"}], 
               SingleEvaluation -> True, Evaluator -> "System"], FontSlant -> 
              Italic, FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited],
              "   ", 
             Grid[{{"Published to the cloud", 
                Hyperlink[
                "\[RightGuillemet]", 
                 "https://www.wolframcloud.com/obj/arnoudb/DeployedResources/\
Function/BitListToByteArray"]}}, Spacings -> 0.25], 
             Grid[{{"ResourceFunction:", 
                RawBoxes[
                 TemplateBox[{
                   InterpretationBox[
                    TagBox[
                    StyleBox[
                    StyleBox[
                    FrameBox[
                    GridBox[{{
                    AdjustmentBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    "\"[\[FilledSmallSquare]]\"", FontColor -> 
                    GrayLevel[0.45]], "ResourceFunctionIcon"], FontFamily -> 
                    "Source Sans Pro Black", FontWeight -> "Heavy", 
                    PrivateFontOptions -> {"OperatorSubstitution" -> False}, 
                    FontSize -> Rational[10, 13] Inherited, 
                    ShowStringCharacters -> False], BoxBaselineShift -> -0.25,
                     BoxMargins -> {{0, 0}, {-1, -1}}], 
                    StyleBox[
                    StyleBox[
                    "\"BitListToByteArray\"", "ResourceFunctionLabel"], 
                    FontSize -> Rational[12, 13] Inherited, 
                    ShowStringCharacters -> False]}}]], 
                    "ResourceFunctionFrame"], 
                    FrameBoxOptions -> {
                    FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[
                    GrayLevel[0.5, 0.35], 
                    AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> 
                    GrayLevel[0.5, 0.15], 
                    BaseStyle -> {
                    "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> 
                    False}}, 
                    GridBoxOptions -> {
                    FrameStyle -> GrayLevel[1, 0], 
                    GridBoxFrame -> {
                    "Columns" -> {{True}}, "Rows" -> {{True}}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {
                    "FunctionResourceBox", 
                    GrayLevel[0.45], "\"BitListToByteArray\""}], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitListToByteArray", "UUID" -> 
                    "049730fd-9b63-44eb-93dc-f81266d4bb10", "ResourceType" -> 
                    "Function", "Description" -> 
                    "Converts a list of bits to a byte array.", "Version" -> 
                    None, "Categories" -> {
                    "Core Language & Structure", 
                    "Data Manipulation & Analysis", "Programming Utilities"}, 
                    "ContributorInformation" -> 
                    Association["ContributedBy" -> "Arnoud Buzing"], 
                    "DefinitionNotebookHash" -> "601d6c0e13616515", 
                    "Documentation" -> Association["Usage" -> {
                    Association["Usage" -> BoxData[
                    RowBox[{
                    StyleBox[
                    RowBox[{
                    StyleBox["ResourceFunction", "ResourceFunctionSymbol"], 
                    "[", 
                    StyleBox[
                    "\"BitListToByteArray\"", "ResourceFunctionName"], "]"}], 
                    "ResourceFunctionHandle"], "[", 
                    StyleBox["bits", "TI"], "]"}]], "Description" -> 
                    TextData[{"converts the list ", 
                    Cell[
                    BoxData[
                    StyleBox["bits", "TI"]], "InlineFormula", FontFamily -> 
                    "Source Sans Pro"], " to a ", 
                    Cell[
                    BoxData[
                    TagBox[
                    ButtonBox[
                    StyleBox[
                    "ByteArray", "SymbolsRefLink", ShowStringCharacters -> 
                    True, FontFamily -> "Source Sans Pro"], BaseStyle -> 
                    Dynamic[
                    FEPrivate`If[
                    CurrentValue["MouseOver"], {
                    "Link", FontColor -> RGBColor[
                    0.854902, 0.396078, 0.145098]}, {"Link"}]], ButtonData -> 
                    "paclet:ref/ByteArray", ContentPadding -> False], 
                    MouseAppearanceTag["LinkHand"]]], "InlineFormula", 
                    FontFamily -> "Source Sans Pro"], "."}]]}, "Notes" -> {
                    Cell[
                    "The output typically requires 64 times less memory than \
the input.", "Notes", CellEventActions -> {
                    Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
                    SelectedNotebook[], After, Cell]; NotebookFind[
                    SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> 
                    True, WrapAround -> True], Blank[NotebookSelection] :> 
                    SelectionMove[
                    SelectedNotebook[], All, CellContents, AutoScroll -> 
                    True]], PassEventsDown -> False, PassEventsUp -> False}, 
                    CellChangeTimes -> {{3.777914139103348*^9, 
                    3.7779141487545614`*^9}}, CellTags -> "TabNext", CellID -> 
                    521904482]}], "ExampleNotebook" -> NotebookObject[
                    FrontEndObject[
                    LinkObject["t4crj_shm", 3, 1]], 60], "FunctionLocation" -> 
                    CloudObject[
                    "https://www.wolframcloud.com/obj/arnoudb/Resources/049/\
049730fd-9b63-44eb-93dc-f81266d4bb10/download/DefinitionData"], 
                    "RelatedSymbols" -> {"ByteArray"}, "ShortName" -> 
                    "BitListToByteArray", "SymbolName" -> 
                    "FunctionRepository`$049730fd9b6344eb93dcf81266d4bb10`\
BitListToByteArray", "VerificationTests" -> HoldComplete[
                    VerificationTest[
                    ResourceObjectTest`MyFunction[
                    ResourceObjectTest`x, ResourceObjectTest`y], 
                    ResourceObjectTest`x ResourceObjectTest`y, {}, TestID -> 
                    "BitListToByteArray-0001"]], "ResourceLocations" -> {
                    CloudObject[
                    "https://www.wolframcloud.com/obj/arnoudb/Resources/049/\
049730fd-9b63-44eb-93dc-f81266d4bb10"]}, "ExampleNotebookData" -> 
                    Automatic]]], Selectable -> False], 
                   RawBoxes[
                    RowBox[{"ResourceFunction", "[", 
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray\"", 
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"], SelectWithContents -> True], 
                    "]"}]]}, "ClickToCopyTemplate"]]}}], "", 
             MouseAppearance[
              Button[
               MouseAppearance[
                Mouseover[
                 Graphics[{
                   GrayLevel[
                    Rational[64, 85]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None], 
                 Graphics[{
                   GrayLevel[
                    Rational[128, 255]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None]], "LinkHand"], Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`deleteMe[
                "b40dda4e-3cce-4f08-a8a3-b945a879235b"], Appearance -> None, 
               BoxID -> "b40dda4e-3cce-4f08-a8a3-b945a879235b"], 
              "LinkHand"]}}, ItemSize -> {{Automatic, Automatic, 
              Scaled[0.35], Automatic, Fit, Automatic}, Automatic}, 
           Alignment -> {{Left, Left, Left, Left, Right, Right}, Baseline}], 
          Grid[{{"", 
             Style[
              Grid[{{"\[FilledVerySmallSquare]", "Cloud object:", 
                 RawBoxes[
                  TemplateBox[{
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://\[Ellipsis]/arnoudb/DeployedResources/Function/\
BitListToByteArray\"", 
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"}, "HyperlinkURL"], "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{"CloudObject", "[", 
                    
                    TemplateBox[{
                    "\"https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray\"", 
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"}, "HyperlinkURL"], "]"}], 
                    CloudObject[
                    "https://www.wolframcloud.com/obj/arnoudb/\
DeployedResources/Function/BitListToByteArray"], SelectWithContents -> 
                    True]]}, "ClickToCopyTemplate"]]}, {
                "\[FilledVerySmallSquare]", "Visit web page:", 
                 Hyperlink[
                  RawBoxes[
                   TagBox[
                    
                    RowBox[{
                    "\"https://www.wolframclou\"", "\[Ellipsis]", 
                    "\"ction/BitListToByteArray\""}], Short[#, 0.75]& ]], 
                  "https://www.wolframcloud.com/obj/arnoudb/DeployedResources/\
Function/BitListToByteArray"]}, {
                "\[FilledVerySmallSquare]", "Resource object:", 
                 RawBoxes[
                  TemplateBox[{
                    RowBox[{"ResourceObject", "[", 
                    InterpretationBox[
                    TagBox[
                    StyleBox[
                    StyleBox[
                    FrameBox[
                    GridBox[{{
                    AdjustmentBox[
                    StyleBox[
                    StyleBox[
                    StyleBox[
                    "\"[\[FilledSmallSquare]]\"", FontColor -> 
                    GrayLevel[0.15]], "ResourceFunctionIcon"], FontFamily -> 
                    "Source Sans Pro Black", FontWeight -> "Heavy", 
                    PrivateFontOptions -> {"OperatorSubstitution" -> False}, 
                    FontSize -> Rational[10, 13] Inherited, 
                    ShowStringCharacters -> False], BoxBaselineShift -> -0.25,
                     BoxMargins -> {{0, 0}, {-1, -1}}], 
                    StyleBox[
                    StyleBox[
                    "\"BitListToByteArray\"", "ResourceFunctionLabel"], 
                    FontSize -> Rational[12, 13] Inherited, 
                    ShowStringCharacters -> False]}}]], 
                    "ResourceFunctionFrame"], 
                    FrameBoxOptions -> {
                    FrameMargins -> {{3, 3}, {0, 0}}, FrameStyle -> Directive[
                    GrayLevel[0.5, 0.35], 
                    AbsoluteThickness[0.5]], RoundingRadius -> 4, Background -> 
                    GrayLevel[0.5, 0.15], 
                    BaseStyle -> {
                    "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> 
                    False}}, 
                    GridBoxOptions -> {
                    FrameStyle -> GrayLevel[1, 0], 
                    GridBoxFrame -> {
                    "Columns" -> {{True}}, "Rows" -> {{True}}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {
                    "FunctionResourceBox", 
                    GrayLevel[0.15], "\"BitListToByteArray\""}], 
                    ResourceFunction[
                    ResourceObject[
                    Association[
                    "Name" -> "BitListToByteArray", "ShortName" -> 
                    "BitListToByteArray", "UUID" -> 
                    "049730fd-9b63-44eb-93dc-f81266d4bb10", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Converts a list of bits to a byte array.", "SymbolName" -> 
                    "FunctionRepository`$049730fd9b6344eb93dcf81266d4bb10`\
BitListToByteArray", "FunctionLocation" -> None]]], Selectable -> False], 
                    "]"}], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["ResourceObject", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}, ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Converts a list of bits to a byte array.\"", 
                    "SummaryItem"]}], "\[SpanFromLeft]"}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60, 60}}, {0, 255}, ColorFunction -> 
                    RGBColor], AspectRatio -> 1, Axes -> False, Background -> 
                    None, Frame -> None, FrameTicks -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}, ImageSizeCache -> {45., {0., 9.}}]], 
                    GridBox[{{
                    RowBox[{
                    TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}], 
                    TagBox["\"\"", "SummaryItem"]}, {
                    RowBox[{
                    TagBox["\"Type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}], 
                    "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"Description: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"Converts a list of bits to a byte array.\"", 
                    "SummaryItem"]}], "\[SpanFromLeft]"}, {
                    RowBox[{
                    TagBox["\"UUID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    "\"049730fd-9b63-44eb-93dc-f81266d4bb10\"", 
                    "SummaryItem"]}], ""}, {
                    RowBox[{
                    TagBox["\"Version: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["None", "SummaryItem"]}], ""}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    ResourceObject[
                    Association[
                    "Name" -> "BitListToByteArray", "ShortName" -> 
                    "BitListToByteArray", "UUID" -> 
                    "049730fd-9b63-44eb-93dc-f81266d4bb10", "ResourceType" -> 
                    "Function", "Version" -> None, "Description" -> 
                    "Converts a list of bits to a byte array.", "SymbolName" -> 
                    "FunctionRepository`$049730fd9b6344eb93dcf81266d4bb10`\
BitListToByteArray", "FunctionLocation" -> None]], Selectable -> False, 
                    Editable -> False, SelectWithContents -> True]]}, 
                   "ClickToCopyTemplate"]]}}, Alignment -> Left, 
               ItemSize -> {{Automatic, Automatic, Fit}, Automatic}], 
              FontColor -> GrayLevel[0.5], FontSize -> 12]}}, 
           ItemSize -> {{Automatic, Fit}, Automatic}, Alignment -> Left, 
           Dividers -> {None, {-1 -> GrayLevel[
                Rational[239, 255]]}}, Spacings -> {{1, {}, 1}, {1, {}, 2}}]},
          False]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], 
     "Text", FontSize -> 12, FontColor -> GrayLevel[0.25], StripOnInput -> 
     False]], "StripeCell", CellFrameMargins -> {{20, 5}, {2, 2}}, 
   CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75]], 
  Cell[
   BoxData[
    StyleBox[
     TagBox[
      DynamicModuleBox[{Typeset`var$$ = False}, 
       InterpretationBox[
        StyleBox[
         PaneSelectorBox[{False -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   StyleBox[
                    DynamicBox[
                    ToBoxes[
                    DateString[
                    TimeZoneConvert[
                    DateObject[
                    3.7779143930829626`17.329827101815933*^9, TimeZone -> 
                    0]], {"MonthName", " ", "DayShort", ", ", "Year", " ", 
                    "Hour12Short", ":", "Minute", " ", "AMPMLowerCase"}], 
                    StandardForm], SingleEvaluation -> True, Evaluator -> 
                    "System"], FontSlant -> Italic, FontColor -> 
                    GrayLevel[0.5], FontSize -> 0.9 Inherited, StripOnInput -> 
                    False], "\"   \"", 
                   TagBox[
                    
                    GridBox[{{
                    "\"Your resource has been submitted for review.\"", 
                    "\"\""}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"Submission ID:\"", 
                    TemplateBox[{"\"2508\"", 
                    RawBoxes["\"2508\""]}, "ClickToCopyTemplate"]}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "91458d76-a159-4484-ab7a-920810520daa"]), Appearance -> 
                    None, BoxID -> "91458d76-a159-4484-ab7a-920810520daa", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Left, Left, Right, Right}, 
                   "Rows" -> {{Baseline}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {Automatic, Automatic, 
                    Scaled[0.35], Automatic, Fit, Automatic}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   StyleBox[
                    DynamicBox[
                    ToBoxes[
                    DateString[
                    TimeZoneConvert[
                    DateObject[
                    3.7779143930829626`17.329827101815933*^9, TimeZone -> 
                    0]], {"MonthName", " ", "DayShort", ", ", "Year", " ", 
                    "Hour12Short", ":", "Minute", " ", "AMPMLowerCase"}], 
                    StandardForm], SingleEvaluation -> True, Evaluator -> 
                    "System"], FontSlant -> Italic, FontColor -> 
                    GrayLevel[0.5], FontSize -> 0.9 Inherited, StripOnInput -> 
                    False], "\"   \"", 
                   TagBox[
                    
                    GridBox[{{
                    "\"Your resource has been submitted for review.\"", 
                    "\"\""}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"Submission ID:\"", 
                    TemplateBox[{"\"2508\"", 
                    RawBoxes["\"2508\""]}, "ClickToCopyTemplate"]}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (Symbol["System`ResourceFunction"]; 
                    FunctionResource`DefinitionNotebook`Private`deleteMe[
                    "91458d76-a159-4484-ab7a-920810520daa"]), Appearance -> 
                    None, BoxID -> "91458d76-a159-4484-ab7a-920810520daa", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Left, Left, Right, Right}, 
                   "Rows" -> {{Baseline}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {Automatic, Automatic, 
                    Scaled[0.35], Automatic, Fit, Automatic}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}, {"", 
               PaneBox[
                TagBox[
                 GridBox[{{"\"\"", 
                    StyleBox[
                    TagBox[
                    
                    GridBox[{{
                    "\"\[FilledVerySmallSquare]\"", "\"Submission result:\"", 
                    TemplateBox[{
                    TagBox[
                    InterpretationBox[
                    RowBox[{
                    TagBox["Success", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 2508.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 2508.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ShortName\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"UUID\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"cec90494-2e6e-4639-a932-27b34ae2f34a\"", 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"SubmissionID\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"2508\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ResourceType\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    
                    TemplateBox[{"\"SubmissionDate\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{
                    RowBox[{"\"Thu 19 Sep 2019 15:39:50\"", 
                    StyleBox[
                    RowBox[{"\"GMT\"", "\[InvisibleSpace]", 
                    StyleBox[
                    RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> 
                    False]}], FontColor -> GrayLevel[0.5]]}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    
                    RowBox[{"2019", ",", "9", ",", "19", ",", "15", ",", "39",
                     ",", "50.990674`8.46006572807707"}], "}"}], ",", 
                    "\"Instant\"", ",", "\"Gregorian\"", ",", 
                    RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable -> 
                    False], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Status\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Copying\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"ResourceSubmission\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Success["ResourceSubmission", 
                    Association[
                    "MessageTemplate" -> 
                    "Your resource has been submitted for review. Your \
submission id is `SubmissionID`.", "MessageParameters" -> 
                    Association["SubmissionID" -> "2508"], "Name" -> 
                    "BitListToByteArray", "ShortName" -> "BitListToByteArray",
                     "UUID" -> "cec90494-2e6e-4639-a932-27b34ae2f34a", 
                    "SubmissionID" -> "2508", "ResourceType" -> "Function", 
                    "SubmissionDate" -> 
                    DateObject[{2019, 9, 19, 15, 39, 
                    50.990674`8.46006572807707}, "Instant", "Gregorian", -5.],
                     "Status" -> "Copying"]], Selectable -> False, Editable -> 
                    False, SelectWithContents -> True], Short[#, 0.75]& ], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["Success", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 2508.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 2508.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ShortName\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"UUID\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"cec90494-2e6e-4639-a932-27b34ae2f34a\"", 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"SubmissionID\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"2508\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ResourceType\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    
                    TemplateBox[{"\"SubmissionDate\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{
                    RowBox[{"\"Thu 19 Sep 2019 15:39:50\"", 
                    StyleBox[
                    RowBox[{"\"GMT\"", "\[InvisibleSpace]", 
                    StyleBox[
                    RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> 
                    False]}], FontColor -> GrayLevel[0.5]]}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    
                    RowBox[{"2019", ",", "9", ",", "19", ",", "15", ",", "39",
                     ",", "50.990674`8.46006572807707"}], "}"}], ",", 
                    "\"Instant\"", ",", "\"Gregorian\"", ",", 
                    RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable -> 
                    False], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Status\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Copying\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"ResourceSubmission\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Success["ResourceSubmission", 
                    Association[
                    "MessageTemplate" -> 
                    "Your resource has been submitted for review. Your \
submission id is `SubmissionID`.", "MessageParameters" -> 
                    Association["SubmissionID" -> "2508"], "Name" -> 
                    "BitListToByteArray", "ShortName" -> "BitListToByteArray",
                     "UUID" -> "cec90494-2e6e-4639-a932-27b34ae2f34a", 
                    "SubmissionID" -> "2508", "ResourceType" -> "Function", 
                    "SubmissionDate" -> 
                    DateObject[{2019, 9, 19, 15, 39, 
                    50.990674`8.46006572807707}, "Instant", "Gregorian", -5.],
                     "Status" -> "Copying"]], Selectable -> False, Editable -> 
                    False, SelectWithContents -> True]]}, 
                    "ClickToCopyTemplate"]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {Automatic, Automatic, Fit}, 
                    "Rows" -> {{Automatic}}}], "Grid"], FontColor -> 
                    GrayLevel[0.5], FontSize -> 12, StripOnInput -> False]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                  False, GridBoxDividers -> {
                   "Columns" -> {{None}}, "RowsIndexed" -> {-1 -> GrayLevel[
                    Rational[239, 255]]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {Automatic, Fit}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {1, {}, 1}, "Rows" -> {1, {}, 2}}], "Grid"], 
                ImageMargins -> 0]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`var$$], Alignment -> Automatic, ImageSize -> 
          Automatic, ImageMargins -> 0, BaseStyle -> {}, DefaultBaseStyle -> 
          "OpenerView", BaselinePosition -> Baseline], Deployed -> False, 
         StripOnInput -> False], 
        OpenerView[{
          Grid[{{
             Style[
              Dynamic[
               DateString[
                TimeZoneConvert[
                 DateObject[
                 3.7779143930829626`17.329827101815933*^9, TimeZone -> 0]], {
                "MonthName", " ", "DayShort", ", ", "Year", " ", 
                 "Hour12Short", ":", "Minute", " ", "AMPMLowerCase"}], 
               SingleEvaluation -> True, Evaluator -> "System"], FontSlant -> 
              Italic, FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited],
              "   ", 
             
             Grid[{{"Your resource has been submitted for review.", ""}}, 
              Spacings -> 0.25], 
             Grid[{{"Submission ID:", 
                RawBoxes[
                 TemplateBox[{"\"2508\"", 
                   RawBoxes["\"2508\""]}, "ClickToCopyTemplate"]]}}], "", 
             MouseAppearance[
              Button[
               MouseAppearance[
                Mouseover[
                 Graphics[{
                   GrayLevel[
                    Rational[64, 85]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None], 
                 Graphics[{
                   GrayLevel[
                    Rational[128, 255]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None]], "LinkHand"], Symbol["System`ResourceFunction"]; 
               FunctionResource`DefinitionNotebook`Private`deleteMe[
                "91458d76-a159-4484-ab7a-920810520daa"], Appearance -> None, 
               BoxID -> "91458d76-a159-4484-ab7a-920810520daa"], 
              "LinkHand"]}}, ItemSize -> {{Automatic, Automatic, 
              Scaled[0.35], Automatic, Fit, Automatic}, Automatic}, 
           Alignment -> {{Left, Left, Left, Left, Right, Right}, Baseline}], 
          Grid[{{"", 
             Style[
              Grid[{{"\[FilledVerySmallSquare]", "Submission result:", 
                 RawBoxes[
                  TemplateBox[{
                    TagBox[
                    InterpretationBox[
                    RowBox[{
                    TagBox["Success", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 2508.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 2508.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ShortName\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"UUID\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"cec90494-2e6e-4639-a932-27b34ae2f34a\"", 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"SubmissionID\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"2508\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ResourceType\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    
                    TemplateBox[{"\"SubmissionDate\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{
                    RowBox[{"\"Thu 19 Sep 2019 15:39:50\"", 
                    StyleBox[
                    RowBox[{"\"GMT\"", "\[InvisibleSpace]", 
                    StyleBox[
                    RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> 
                    False]}], FontColor -> GrayLevel[0.5]]}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    
                    RowBox[{"2019", ",", "9", ",", "19", ",", "15", ",", "39",
                     ",", "50.990674`8.46006572807707"}], "}"}], ",", 
                    "\"Instant\"", ",", "\"Gregorian\"", ",", 
                    RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable -> 
                    False], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Status\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Copying\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"ResourceSubmission\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Success["ResourceSubmission", 
                    Association[
                    "MessageTemplate" -> 
                    "Your resource has been submitted for review. Your \
submission id is `SubmissionID`.", "MessageParameters" -> 
                    Association["SubmissionID" -> "2508"], "Name" -> 
                    "BitListToByteArray", "ShortName" -> "BitListToByteArray",
                     "UUID" -> "cec90494-2e6e-4639-a932-27b34ae2f34a", 
                    "SubmissionID" -> "2508", "ResourceType" -> "Function", 
                    "SubmissionDate" -> 
                    DateObject[{
                    2019, 9, 19, 15, 39, 50.990674`8.46006572807707}, 
                    "Instant", "Gregorian", -5.], "Status" -> "Copying"]], 
                    Selectable -> False, Editable -> False, 
                    SelectWithContents -> True], Short[#, 0.75]& ], 
                    RawBoxes[
                    InterpretationBox[
                    RowBox[{
                    TagBox["Success", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 2508.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your resource has been submitted for review. Your \
submission id is 2508.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ShortName\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"BitListToByteArray\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"UUID\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"cec90494-2e6e-4639-a932-27b34ae2f34a\"", 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"SubmissionID\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"2508\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ResourceType\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    
                    TemplateBox[{"\"SubmissionDate\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{
                    RowBox[{"\"Thu 19 Sep 2019 15:39:50\"", 
                    StyleBox[
                    RowBox[{"\"GMT\"", "\[InvisibleSpace]", 
                    StyleBox[
                    RowBox[{"-", "5.`"}], NumberMarks -> False, StripOnInput -> 
                    False]}], FontColor -> GrayLevel[0.5]]}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    
                    RowBox[{"2019", ",", "9", ",", "19", ",", "15", ",", "39",
                     ",", "50.990674`8.46006572807707"}], "}"}], ",", 
                    "\"Instant\"", ",", "\"Gregorian\"", ",", 
                    RowBox[{"-", "5.`"}]}], "]"}]}, "DateObject", Editable -> 
                    False], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Status\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Copying\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"ResourceSubmission\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Success["ResourceSubmission", 
                    Association[
                    "MessageTemplate" -> 
                    "Your resource has been submitted for review. Your \
submission id is `SubmissionID`.", "MessageParameters" -> 
                    Association["SubmissionID" -> "2508"], "Name" -> 
                    "BitListToByteArray", "ShortName" -> "BitListToByteArray",
                     "UUID" -> "cec90494-2e6e-4639-a932-27b34ae2f34a", 
                    "SubmissionID" -> "2508", "ResourceType" -> "Function", 
                    "SubmissionDate" -> 
                    DateObject[{
                    2019, 9, 19, 15, 39, 50.990674`8.46006572807707}, 
                    "Instant", "Gregorian", -5.], "Status" -> "Copying"]], 
                    Selectable -> False, Editable -> False, 
                    SelectWithContents -> True]]}, "ClickToCopyTemplate"]]}}, 
               Alignment -> Left, 
               ItemSize -> {{Automatic, Automatic, Fit}, Automatic}], 
              FontColor -> GrayLevel[0.5], FontSize -> 12]}}, 
           ItemSize -> {{Automatic, Fit}, Automatic}, Alignment -> Left, 
           Dividers -> {None, {-1 -> GrayLevel[
                Rational[239, 255]]}}, Spacings -> {{1, {}, 1}, {1, {}, 2}}]},
          False]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], 
     "Text", FontSize -> 12, FontColor -> GrayLevel[0.25], StripOnInput -> 
     False]], "StripeCell", CellFrameMargins -> {{20, 5}, {2, 2}}, 
   CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75]]},
TaggingRules->{
 "ResourceType" -> "Function", "ResourceCreateNotebook" -> True, 
  "TemplateVersion" -> "1.2.26", "CreationTimestamp" -> 
  3.777913698457807`17.329827021964498*^9, "UpdatedTimestamp" -> 
  3.777913698457807`17.329827021964498*^9, "ToolsOpen" -> True, 
  "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}, 
  "AttachedHints" -> {}},
CreateCellID->True,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData[All, "Working"], DockedCells -> {
      Cell[
       BoxData[
        TemplateBox[{}, "MainGridTemplate"]], "DockedCell", 
       CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, 
       CellTags -> {"MainDockedCell"}], 
      Cell[
       BoxData[
        TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", 
       TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, 
       Background -> RGBColor[0.996078, 0.941176, 0.921569], 
       CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, 
       CellFrameColor -> GrayLevel[0.75], CellOpen -> Dynamic[
         CurrentValue[
          EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, False]]]}], 
   Cell[
    StyleData["Item"], DefaultNewCellStyle -> "Item"], 
   Cell[
    StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], 
    FontColor -> GrayLevel[0.25]], 
   Cell[
    StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], 
    ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, 
    CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, 
    FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], 
   Cell[
    StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], 
    ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 
    14, GridBoxOptions -> {BaseStyle -> {}}], 
   Cell[
    StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, 
    FontWeight -> Bold, FontColor -> RGBColor[0.458824, 0.458824, 0.458824]], 
   Cell[
    StyleData["MoreInfoOpenerIconTemplate"], 
    TemplateBoxOptions -> {
     DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{
            Thickness[0.07142857142857142], 
            StyleBox[{
              
              JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz
jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G
bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+HJQe2D6J0DtQTGfgR1u/wOo
Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw=
               "], CurveClosed -> {1}]}, 
             JoinForm[{"Miter", 3.25}], 
             Thickness[0.049999999999999996`], 
             RGBColor[0.627441, 0.627441, 0.627441, 1.], StripOnInput -> 
             False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
                 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
                0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6
eve8lMPjwkBdpVlKDtNeMcWlaUg5bLCT+/XumZKDfHH3s3cNkhD1xsoOydvP
axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+V+XP9TIsKXP8jkPnPVODmg9UbqsLt
97yxfXJHjSrcfWD3LFJ1gLkfxn9jH7F5d64snA9Wby4H139K1mzizNtyqObX
y8PtN2iZ8/3/RXm4+2B8mPthfJj/YPph/oeZDwsfmP2w8IO5Dxa+6OEPAGHh
sd4=
                "], CompressedData["
1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOB35VvNh9m88Bxo+YItQUGsrtcErW
bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfL0f78Zk/gnC+
jhfnwVVSwnC+lOWP9TMtReD8F6xHa9LMROH8SRvy1QUFxdD4EnA+l8bzeR0a
knD+koMNFkpCUnB+Qq3Nl7tnEXwZkH2d0qjyvjJo7pOF8CXFHX6IXestL0fw
jz1eFOXyR84hZft5LeO7cg4b7OR+vTulAJFPlHeo4X59bPd0BB+iXxrOR/EP
kI/iXyC/aX6cGIOFCJwPdp+oMJwPDt/PgnA+2D1PBOB8WHygxy8Abafrpg==

                "]}]}, 
             FaceForm[
              RGBColor[0.627441, 0.627441, 0.627441, 1.]], StripOnInput -> 
             False]}, ImageSize -> {14., 14.}, 
           PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic], 
         True -> GraphicsBox[{
            Thickness[0.07142857142857142], 
            StyleBox[{
              
              JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz
jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G
bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+HJQe2D6J0DtQTGfgR1u/wOo
Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw=
               "], CurveClosed -> {1}]}, 
             JoinForm[{"Miter", 3.25}], 
             Thickness[0.049999999999999996`], 
             RGBColor[0.5, 0.5, 0.5, 1.], StripOnInput -> False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYCYpfunOe/V2o6MICBjAOM//GSb5KAhKLD46Wz
jygUaDjIRKVY3+dXgahzUIPTMHGYOpg+XObKgtSfF4Xze6fnCTUf4Ifr/w8G
bHDzn15Quv2z7o89zJ4nIHUbPtnD7IHxYfbA+HJQe2D6J0DtQTGfgR1u/wOo
Opj7HqCZ+wDNXhgf5i6YfpTwAZoP8xfMfpi/5dDCAWYPAFLnobw=
               "]]}, 
             FaceForm[
              RGBColor[0.5, 0.5, 0.5, 1.]], StripOnInput -> False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
                 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
                0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBGIQ/Tcg88iZOhmHGu7Xx3YXKzm03fzoEzpdGs7nS6q6
eve8lMPjwkBdpVlKDtNeMcWlaUg5bLCT+/XumZKDfHH3s3cNkhD1xsoOydvP
axnrSjrM0+V9eXcqgi+2tCUhlFcFzu+V+XP9TIsKXP8jkPnPVODmg9UbqsLt
97yxfXJHjSrcfWD3LFJ1gLkfxn9jH7F5d64snA9Wby4H139K1mzizNtyqObX
y8PtN2iZ8/3/RXm4+2B8mPthfJj/YPph/oeZDwsfmP2w8IO5Dxa+6OEPAGHh
sd4=
                "], CompressedData["
1:eJxTTMoPSmViYGCQB2IQLeF07vf/KwoOB35VvNh9m88Bxo+YItQUGsrtcErW
bOLMbHEMPky9Qcuc7/8vSjp80F0j/f4cP5xvEy11afdrATjfL0f78Zk/gnC+
jhfnwVVSwnC+lOWP9TMtReD8F6xHa9LMROH8SRvy1QUFxdD4EnA+l8bzeR0a
knD+koMNFkpCUnB+Qq3Nl7tnEXwZkH2d0qjyvjJo7pOF8CXFHX6IXestL0fw
jz1eFOXyR84hZft5LeO7cg4b7OR+vTulAJFPlHeo4X59bPd0BB+iXxrOR/EP
kI/iXyC/aX6cGIOFCJwPdp+oMJwPDt/PgnA+2D1PBOB8WHygxy8Abafrpg==

                "]}]}, 
             FaceForm[
              RGBColor[0.999985, 0.999985, 0.999985, 1.]], StripOnInput -> 
             False]}, ImageSize -> {14., 14.}, 
           PlotRange -> {{0., 14.}, {0., 14.}}, AspectRatio -> Automatic]}, 
        Dynamic[
         CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 
        0]& )}], 
   Cell[
    StyleData["MoreInfoOpenerButtonTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[
        ButtonBox[
         TemplateBox[{
           TemplateBox[{}, "MoreInfoOpenerIconTemplate"], 
           "\"Click for more information\""}, "PrettyTooltipTemplate"], 
         ButtonFunction :> (If[
            MatchQ[
             CurrentValue[
              ButtonNotebook[], {TaggingRules, "AttachedCells", #}], 
             Blank[CellObject]], NotebookDelete[
              CurrentValue[
               ButtonNotebook[], {TaggingRules, "AttachedCells", #}]]; 
            CurrentValue[
               ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = 
             Inherited, CurrentValue[
               ButtonNotebook[], {TaggingRules, "AttachedCells", #}] = 
             MathLink`CallFrontEnd[
               FrontEnd`AttachCell[
                ParentCell[
                 EvaluationCell[]], #2, "Inline", 
                "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]; 
            Null]; Null), Appearance -> None, Evaluator -> Automatic, Method -> 
         "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], 
   Cell[
    StyleData["ClickToCopyTemplate"], 
    TemplateBoxOptions -> {
     DisplayFunction -> (PaneSelectorBox[{False -> TagBox[
           GridBox[{{#, 
              ButtonBox[
               GraphicsBox[{
                 GrayLevel[0.85], 
                 Thickness[
                  NCache[2/45, 0.044444444444444446`]], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {
                   9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 
                   18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, {
                   16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, {
                   15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {
                   8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 
                   16.5}, {9.75, 16.5}}}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {
                  14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, {
                  14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 
                  9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 
                  7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, 
                ImageSize -> 12], ButtonFunction :> Null, 
               Appearance -> {
                "Default" -> None, "Hover" -> None, "Pressed" -> None}, 
               Evaluator -> Automatic, Method -> "Preemptive"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}},
             AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> 
         DynamicModuleBox[{
           FunctionResourceTools`BuildDefinitionNotebook`Private`clickTime$$ = 
            0., FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$\
$ = 3.}, 
           TagBox[
            GridBox[{{#, 
               TagBox[
                ButtonBox[
                 DynamicBox[
                  ToBoxes[
                   Refresh[
                    If[
                    AbsoluteTime[] - 
                    FunctionResourceTools`BuildDefinitionNotebook`Private`\
clickTime$$ > FunctionResourceTools`BuildDefinitionNotebook`Private`timeout$$, 
                    (RawBoxes[
                    TemplateBox[{
                    ToBoxes[#], 
                    ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[
                    Mouseover[
                    Graphics[{
                    GrayLevel[0.65], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12], 
                    Graphics[{
                    RGBColor[0.988235, 0.419608, 0.203922], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12]], 
                    "Click to copy to the clipboard"], 
                    (RawBoxes[
                    TemplateBox[{
                    ToBoxes[#], 
                    ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[
                    Graphics[{
                    RGBColor[0, 2/3, 0], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 
                    1, TrackedSymbols :> {
                    FunctionResourceTools`BuildDefinitionNotebook`Private`\
clickTime$$}], StandardForm], Evaluator -> "System"], 
                 ButtonFunction :> (
                  FunctionResourceTools`BuildDefinitionNotebook`Private`\
clickTime$$ = AbsoluteTime[]; CopyToClipboard[#2]), 
                 Appearance -> {
                  "Default" -> None, "Hover" -> None, "Pressed" -> None}, 
                 Method -> "Queued", Evaluator -> "System"], 
                MouseAppearanceTag["LinkHand"]]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], 
           DynamicModuleValues :> {}]}, 
        Dynamic[
         CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 
        0]& )}], 
   Cell[
    StyleData["PrettyTooltipTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        TooltipBox[#, 
         FrameBox[
          
          StyleBox[#2, "Text", FontColor -> 
           RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> 
           "Plain", FontTracking -> "Plain", StripOnInput -> False], 
          Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> 
          RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, 
          StripOnInput -> False], TooltipDelay -> 0.1, 
         TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, 
         Framed[
          Style[
          FunctionResourceTools`BuildDefinitionNotebook`Private`$$tooltip, 
           "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], 
           FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], 
          Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> 
          RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], 
         "Tooltip"]& ]& )}], 
   Cell[
    StyleData["ToolsGridTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        GridBox[{{
           ButtonBox[
            TemplateBox[{
              StyleBox[
              "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", 
               FontSize -> 11, StripOnInput -> False], 
              "\"Format selection automatically using appropriate \
documentation styles\""}, "PrettyTooltipTemplate"], 
            ButtonFunction :> (
             Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
               Symbol["System`ResourceFunction"]]; Identity[
               FunctionResource`DocuToolsTemplate`FunctionTemplateToggle[]]), 
            FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[
              FEPrivate`If[
               CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, {
               FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], 
              Evaluator -> "System"], 
            Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un
gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl
AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
              "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T
7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N
DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww=
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
              "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap
t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz
uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
            Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> 
            "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], 
           ButtonBox[
            TemplateBox[{
              StyleBox[
              "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", 
               FontSize -> 11, StripOnInput -> False], 
              "\"Format selection as literal Wolfram Language code\""}, 
             "PrettyTooltipTemplate"], 
            ButtonFunction :> (
             Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
               Symbol["System`ResourceFunction"]]; Identity[
               
               FunctionResource`DocuToolsTemplate`\
FunctionTemplateLiteralInput[]]), FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> 
            Dynamic[
              FEPrivate`If[
               CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, {
               FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], 
              Evaluator -> "System"], 
            Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un
gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl
AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
              "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T
7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N
DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww=
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
              "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap
t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz
uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
            Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> 
            "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], 
           ButtonBox[
            TemplateBox[{
              StyleBox[
              "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro",
                FontSize -> 11, StripOnInput -> False], 
              "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], 
            ButtonFunction :> (
             Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
               Symbol["System`ResourceFunction"]]; Identity[
               FunctionResource`DocuToolsTemplate`DocDelimiter[]]), 
            FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[
              FEPrivate`If[
               CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, {
               FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], 
              Evaluator -> "System"], 
            Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un
gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl
AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
              "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T
7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N
DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww=
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
              "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap
t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz
uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
            Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> 
            "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], 
           ButtonBox[
            TemplateBox[{
              StyleBox[
              "\"Subscripted Variable\"", "Text", FontFamily -> 
               "Source Sans Pro", FontSize -> 11, StripOnInput -> False], 
              "\"Insert subscripted variable placeholder\""}, 
             "PrettyTooltipTemplate"], 
            ButtonFunction :> (
             Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
               Symbol["System`ResourceFunction"]]; Identity[
               FunctionResource`DocuToolsTemplate`InsertSubscript[]]), 
            FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[
              FEPrivate`If[
               CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, {
               FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], 
              Evaluator -> "System"], 
            Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un
gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl
AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
              "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T
7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N
DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww=
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
              "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap
t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz
uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/
                "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
            Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> 
            "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], 
           ActionMenuBox[
            ButtonBox[
             TemplateBox[{
               StyleBox[
               "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\
\[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 
                11, StripOnInput -> False], "\"Table Functions\""}, 
              "PrettyTooltipTemplate"], 
             ButtonFunction :> (
              Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
                Symbol["System`ResourceFunction"]]; 
              FunctionResource`DefinitionNotebook`Private`showProgress[Null]),
              FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[
               FEPrivate`If[
                CurrentValue["MouseOver"], {FontColor -> RGBColor[1, 1, 1]}, {
                FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], 
               Evaluator -> "System"], 
             Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un
gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl
AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T
7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N
DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww=
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
               "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap
t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz
uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/
                 "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
             Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> 
             "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], {
            "\"Insert table with two columns\"" :> 
             ToExpression[
              "System`Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = System`False}, \
System`Symbol[\"System`ResourceFunction\"]; \
FunctionResource`DocuToolsTemplate`TableInsert[2]]", InputForm], 
             "\"Insert table with three columns\"" :> 
             ToExpression[
              "System`Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = System`False}, \
System`Symbol[\"System`ResourceFunction\"]; \
FunctionResource`DocuToolsTemplate`TableInsert[3]]", InputForm], 
             "\"Add a row to the selected table\"" :> 
             ToExpression[
              "System`Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = System`False}, \
System`Symbol[\"System`ResourceFunction\"]; \
System`FrontEndExecute[{System`FrontEndToken[System`ButtonNotebook[], \
\"NewRow\"]}]]", InputForm], "\"Sort the selected table\"" :> 
             ToExpression[
              "System`Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = System`False}, \
System`Symbol[\"System`ResourceFunction\"]; \
FunctionResource`DocuToolsTemplate`TableSort[]]", InputForm], 
             "\"Merge selected tables\"" :> 
             ToExpression[
              "System`Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = System`False}, \
System`Symbol[\"System`ResourceFunction\"]; \
FunctionResource`DocuToolsTemplate`TableMerge[]]", InputForm]}, Appearance -> 
            None, Method -> "Queued"], 
           DynamicBox[
            ToBoxes[
             If[
              CurrentValue[
               EvaluationNotebook[], {
               TaggingRules, "SubmissionReviewData", "Review"}, False], 
              Button[
               RawBoxes[
                TemplateBox[{
                  StyleBox[
                  "\"Insert Comment\"", "Text", FontFamily -> 
                   "Source Sans Pro", FontSize -> 11, StripOnInput -> False], 
                  "\"Insert comment for reviewer\""}, 
                 "PrettyTooltipTemplate"]], 
               Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = False}, 
                 Symbol["System`ResourceFunction"]]; Identity[
                 FunctionResource`DocuToolsTemplate`InsertComment[]], 
               FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[
                 FEPrivate`If[
                  CurrentValue["MouseOver"], {
                  FontColor -> RGBColor[1, 1, 1]}, {
                  FontColor -> RGBColor[0.92549, 0.498039, 0.235294]}], 
                 Evaluator -> "System"], 
               Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh9mpryfFAVBQDZcMVzZr9un
gFK/H1+BWwFkA0WA4nBlf988A+l9fgvNMUARoDhQFuJaoJYP0xKwOhsoDpRl
AANilBFpGvFuI9KnxIcbMbGABrDGKQDn48Vx
                   "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                 "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUh8mRbxvd4MgIBuuGK7s1+1T
7zs8fvbb/JkCRUA2UAQoDlf2982zDxNDf05AqIGqnGADFAfKQlwL1PKhwx1N
DQQBxYGyDGBAjDIiTSPebUT6lPhwIyYWiIlTAA7cjww=
                   "], "Byte", ColorSpace -> "RGB", Interleaving -> True], 
                 "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQ/PvwGo5+3zsPQciCyMqAUu/6wt42OkMQkA1XDFf26/ap
t81urxOUXodLQ1GCElAEKA5X9vfNs3c9wa/jFRFqICheESgOlIW4FqjlXYMz
uhowAooDZRnAgBhlRJpGvNuI9Cnx4UZMLBATpwBrEHs/
                   "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
               Background -> RGBColor[0.996078, 0.941176, 0.921569], Method -> 
               "Queued", ImageSize -> {All, 20}], ""], StandardForm], 
            Evaluator -> "System", SingleEvaluation -> True], 
           ItemBox["\"\"", ItemSize -> Fit, StripOnInput -> False]}}, 
         GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
         AutoDelete -> False, 
         GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
             RGBColor[0.996078, 0.941176, 0.921569]}}, 
         GridBoxFrame -> {
          "Columns" -> False, 
           "RowsIndexed" -> {1 -> RGBColor[0.996078, 0.941176, 0.921569]}}, 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
         GridBoxSpacings -> {
          "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, 
         FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], 
   Cell[
    StyleData["MainGridTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        GridBox[{{
           TagBox[
            GridBox[{{
               GraphicsBox[{
                 Thickness[0.022222222222222223`], {
                  FaceForm[{
                    RGBColor[0.87451, 0.278431, 0.03137260000000001], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                   3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 
                   0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {
                   0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {
                   34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, {
                  FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 
                    3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 
                    0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e
ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa
4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB
9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2
cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1
2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh
Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e
PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx
71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP
iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h
I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A
peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8=
                    "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 
                    27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 
                    26.308999999999997`}, {21.375, 26.258000000000003`}, {
                    21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 
                    15.602}, {21.426, 15.547}, {23.828, 
                    15.315999999999999`}, {23.828, 14.242}}, {{24.578, 
                    18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {
                    24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, {
                    30.203, 23.91}, {30.578, 23.539}, {30.578, 
                    23.078000000000003`}, {30.578, 18.75}, {
                    30.581999999999997`, 18.288999999999998`}, {30.207, 
                    17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 
                    17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 
                    14.242}, {31.328, 15.315999999999999`}, {33.684, 
                    15.539000000000001`}, {33.789, 15.602}, {33.789, 
                    17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 
                    26.281}, {31.328, 26.512000000000004`}, {31.328, 
                    27.586}, {36.113, 27.586}, {36.113, 
                    14.234000000000002`}}}]}}, {
                ImageSize -> {Automatic, 32}, 
                 ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> 
                 Scaled[0.25], Background -> 
                 RGBColor[0.988235, 0.419608, 0.203922], AspectRatio -> 
                 Automatic, ImageSize -> {45., 45.}, 
                 PlotRange -> {{0., 45.}, {0., 45.}}}], 
               StyleBox[
                TagBox[
                 GridBox[{{
                    StyleBox[
                    "\"Function Resource\"", FontFamily -> 
                    "Source Sans Pro SemiBold", FontWeight -> "SemiBold", 
                    StripOnInput -> False], 
                    StyleBox[
                    "\"DEFINITION NOTEBOOK\"", FontFamily -> 
                    "Source Sans Pro", FontTracking -> "SemiCondensed", 
                    FontVariations -> {"CapsType" -> "AllSmallCaps"}, 
                    StripOnInput -> False]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                  False, 
                  GridBoxDividers -> {
                   "ColumnsIndexed" -> {2 -> GrayLevel[1]}, 
                    "Rows" -> {{None}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                 "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], 
                StripOnInput -> False]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", 
           "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", 
           "\[SpanFromLeft]", 
           ItemBox[
            TemplateBox[{
              StyleBox[
              "\"Function Repository \[RightGuillemet]  \"", "Text", 
               FontColor -> GrayLevel[1], StripOnInput -> False], 
              "https://resources.wolframcloud.com/FunctionRepository/"}, 
             "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> 
            False]}, {
           TemplateBox[{
             
             TemplateBox[{
              "\"Open Sample\"", 
               "\"View a completed sample definition notebook\""}, 
              "PrettyTooltipTemplate"], 
             FunctionResource`DefinitionNotebook`Private`viewExampleNotebook[]\
& , "\"View a completed sample definition notebook\"", True}, 
            "OrangeButtonTemplate"], 
           TemplateBox[{
             
             TemplateBox[{
              "\"Style Guidelines\"", 
               "\"View general guidelines for authoring resource \
functions\""}, "PrettyTooltipTemplate"], 
             FunctionResource`DefinitionNotebook`Private`viewStyleGuidelines[]\
& , "\"View general guidelines for authoring resource functions\"", True}, 
            "OrangeButtonTemplate"], 
           TemplateBox[{
             TemplateBox[{
               TagBox[
                GridBox[{{"\"Tools\"", 
                   PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[1], 
                    AbsoluteThickness[1], 
                    LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], 
                    LineBox[{{0., 0.65}, {0., -0.65}}], 
                    LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, 
                    PlotRangePadding -> None, Background -> None], True -> 
                    GraphicsBox[{
                    GrayLevel[1], 
                    AbsoluteThickness[1], 
                    LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], 
                    LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 12, 
                    PlotRangePadding -> None, Background -> None]}, 
                    Dynamic[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]],
                     BaselinePosition -> Scaled[0.1]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], 
               "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], 
             FunctionResource`DefinitionNotebook`Private`getResource[
              ButtonNotebook[], "Tools"]& , 
             "\"Toggle documentation toolbar\"", False}, 
            "OrangeButtonTemplate"], 
           TagBox[
            
            GridBox[{{"\"\"", "\"\""}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
             False, GridBoxDividers -> {
              "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, 
             GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}},
              GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> 
             RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], 
           TemplateBox[{
             
             TemplateBox[{
              "\"Check\"", "\"Check notebook for potential errors\""}, 
              "PrettyTooltipTemplate"], 
             FunctionResource`DefinitionNotebook`Private`checkNotebook[
              ButtonNotebook[]]& , "\"Check notebook for potential errors\"", 
             True}, "OrangeButtonTemplate"], 
           ActionMenuBox[
            TemplateBox[{
             "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, 
             "OrangeButtonTemplate"], {
            "\"In a notebook\"" :> 
             ToExpression[
              "System`Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = System`False}, \
System`Symbol[\"System`ResourceFunction\"]; \
FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\
], \"Preview\"]]", InputForm], "\"On the cloud\"" :> 
             ToExpression[
              "System`Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = System`False}, \
System`Symbol[\"System`ResourceFunction\"]; \
FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\
], \"Cloud\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], 
           ActionMenuBox[
            
            TemplateBox[{
             "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, 
             "OrangeButtonTemplate"], {
            "\"Locally on this computer\"" :> 
             ToExpression[
              "System`Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = System`False}, \
System`Symbol[\"System`ResourceFunction\"]; \
FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\
], \"Local\"]]", InputForm], "\"For my cloud account\"" :> 
             ToExpression[
              "System`Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = System`False}, \
System`Symbol[\"System`ResourceFunction\"]; \
FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\
], \"Cloud\"]]", InputForm], "\"Publicly in the cloud\"" :> 
             ToExpression[
              "System`Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = System`False}, \
System`Symbol[\"System`ResourceFunction\"]; \
FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\
], \"CloudPublic\"]]", InputForm], 
             "\"In this session only (without documentation)\"" :> 
             ToExpression[
              "System`Block[{ResourceSystemClient`$\
AsyncronousResourceInformationUpdates = System`False}, \
System`Symbol[\"System`ResourceFunction\"]; \
FunctionResource`DefinitionNotebook`Private`getResource[System`ButtonNotebook[\
], \"KernelSession\"]]", InputForm]}, Appearance -> None, Method -> "Queued"], 
           ItemBox[
            StyleBox[
             DynamicBox[
              ToBoxes[
               CurrentValue[
                EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], 
               StandardForm], Evaluator -> "System", Initialization :> If[
                Not[$CloudEvaluation], CurrentValue[
                  EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = 
                ""]], "Text", 
             GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, 
            StripOnInput -> False], 
           DynamicBox[
            ToBoxes[
             If[
              CurrentValue[
               EvaluationNotebook[], {
               TaggingRules, "SubmissionReviewData", "Review"}, False], 
              RawBoxes[
               TemplateBox[{
                 TemplateBox[{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Thickness[0.06349206349206349], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP
p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4=

                    "]]}, 
                    FaceForm[
                    RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> 
                    False], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+
Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG
QUPVNSjgp+HmIWgAG/wcEg==
                    "]], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 
                    1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0,
                     1, 0}, {0, 1, 0}}}, CompressedData["
1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO
u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H
eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw==
                    "]]}, 
                    FaceForm[
                    RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, 
                    ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, 
                    AspectRatio -> 1.15], "\"Submit Update\""}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, 
                    "Rows" -> {{0}}}], "Grid"], 
                   "\"Submit changes to update your resource submission\""}, 
                  "PrettyTooltipTemplate"], 
                 FunctionResource`DefinitionNotebook`Private`\
submitRepositoryUpdate[
                  ButtonNotebook[]]& , 
                 "\"Submit changes to update your resource submission\"", 
                 True}, "OrangeButtonTemplate"]], 
              RawBoxes[
               TemplateBox[{
                 TemplateBox[{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Thickness[0.06349206349206349], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP
p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4=

                    "]]}, 
                    FaceForm[
                    RGBColor[0.960784, 0.705882, 0.498039, 1.]], StripOnInput -> 
                    False], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+
Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG
QUPVNSjgp+HmIWgAG/wcEg==
                    "]], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 
                    1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0,
                     1, 0}, {0, 1, 0}}}, CompressedData["
1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO
u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H
eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw==
                    "]]}, 
                    FaceForm[
                    RGBColor[1., 1., 1., 1.]], StripOnInput -> False]}, 
                    ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, 
                    AspectRatio -> 1.15], "\"Submit to Repository\""}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, 
                    "Rows" -> {{0}}}], "Grid"], 
                   "\"Submit your function to the Wolfram Function Repository\
\""}, "PrettyTooltipTemplate"], 
                 FunctionResource`DefinitionNotebook`Private`submitRepository[
                  ButtonNotebook[]]& , 
                 "\"Submit your function to the Wolfram Function \
Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> 
            "System", SingleEvaluation -> True]}}, 
         GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
         AutoDelete -> False, 
         GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
             RGBColor[0.988235, 0.419608, 0.203922], 
             RGBColor[0.921569, 0.341176, 0.105882]}}, 
         GridBoxFrame -> {
          "Columns" -> False, 
           "RowsIndexed" -> {
            1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> 
             RGBColor[0.921569, 0.341176, 0.105882]}}, 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
         GridBoxSpacings -> {
          "Columns" -> {5, {0.9}, 5}, 
           "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> 
         RGBColor[0.988235, 0.419608, 0.203922]], "Grid"]& )}], 
   Cell[
    StyleData["ReviewerCommentLabelTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        GridBox[{{#, 
           TemplateBox[{
             GraphicsBox[{
               Thickness[0.022222222222222223`], {
                FaceForm[{
                  RGBColor[0.87451, 0.278431, 0.03137260000000001], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 
                 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {
                 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926,
                  45.}, {45., 34.926}, {45., 22.5}}}]}, {
                FaceForm[{
                  RGBColor[1., 1., 1.], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {
                  1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
                   3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 
                  0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                  1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                  2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 
                  3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 
                  3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 
                  0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {
                  0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e
ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa
4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB
9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2
cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1
2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh
Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e
PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx
71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP
iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h
I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A
peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8=
                  "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 
                  27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 
                  26.308999999999997`}, {21.375, 26.258000000000003`}, {
                  21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 
                  15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {
                  23.828, 14.242}}, {{24.578, 18.75}, {24.578, 
                  23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, {
                  25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 
                  23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, {
                  30.581999999999997`, 18.288999999999998`}, {30.207, 
                  17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 
                  17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 
                  14.242}, {31.328, 15.315999999999999`}, {33.684, 
                  15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {
                  33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {
                  31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 
                  27.586}, {36.113, 14.234000000000002`}}}]}}, {
              ImageSize -> 12, Background -> None, AspectRatio -> Automatic, 
               ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}],
              "Wolfram Function Repository Reviewer"}, 
            "PrettyTooltipTemplate"]}}, 
         GridBoxAlignment -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> 
         False, GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
         GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], 
   Cell[
    StyleData["CommentCellLabelTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
        TagBox[
         GridBox[{{
            StyleBox[#, FontSize -> 11]}, {
            StyleBox[
             DynamicBox[
              ToBoxes[
               DateString[
                TimeZoneConvert[
                 DateObject[#2, TimeZone -> 0]], {
                "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", 
                 "Minute"}], StandardForm], SingleEvaluation -> True], 
             FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], 
         "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], 
   Cell[
    StyleData["OrangeButtonTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[
        StyleBox[#, "Text", FontFamily -> "Source Sans Pro SemiBold", 
         FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, 
         FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> 
        Block[{ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
           False}, Symbol["System`ResourceFunction"]; If[
            TrueQ[#4], CurrentValue[
               ButtonNotebook[], {TaggingRules, "StatusMessage"}] = 
             ProgressIndicator[Appearance -> "Necklace"]; 
            FunctionResource`DefinitionNotebook`Private`showProgress, 
            Identity][
            #2[]]], FrameMargins -> {{5, 5}, {0, 0}}, 
        Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQvA6XhqPngeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPA8Wu
WjBdNmVARkARoDhCWZjUdUsWNDUQBBQHykJcC9RyxRzdKAgCigNlGcCAGGVE
mka824j1KdHhRkwsEBOnAMp0Eag=
            "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> 
          Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotdGIa7UuOwQB2XDFcGX3/MXX
6LEv12ZDRkARoDhc2ctQqQ1GnGhqIAgoDpSFuBarUcgGMoABMcqINI14txHp
U+LDjZhYICZOAZ5bBHA=
            "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> 
          Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt
28Obu6Jsl2uzQRCQDRQBisOVvYlR+nr99I5gU7gaCAKKAMWBshDXArV8vnUR
TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBDsjmM
            "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, 
        Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> 
        "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], 
   Cell[
    StyleData["SuggestionGridTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
        FrameBox[
         AdjustmentBox[
          TagBox[
           GridBox[{{
              
              TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, 
               "SuggestionIconTemplate"], 
              
              PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> 
               Baseline, ImageSize -> Full], 
              AdjustmentBox[
               TemplateBox[{
                 ActionMenuBox[
                  TagBox[
                   PaneSelectorBox[{False -> GraphicsBox[{
                    EdgeForm[
                    Directive[
                    GrayLevel[1, 0], 
                    Thickness[0.025]]], 
                    FaceForm[#4], 
                    
                    RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 
                    0.2], 
                    Thickness[0.15], #5, 
                    LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, 
                    ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> 
                    GraphicsBox[{
                    EdgeForm[
                    Directive[#5, 
                    Thickness[0.025]]], 
                    FaceForm[#2], 
                    
                    RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 
                    0.2], 
                    Thickness[0.15], 
                    GrayLevel[1], 
                    LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, 
                    ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                   MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, 
                  Method -> "Queued"], "\"View suggestions\""}, 
                "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, 
            GridBoxAlignment -> {
             "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
            False, GridBoxItemSize -> {
             "Columns" -> {Automatic, Automatic, Fit}, 
              "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], 
          BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], 
         RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, 
         FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, 
         StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, 
        FontFamily -> "Source Sans Pro SemiBold", FontWeight -> "SemiBold", 
        FontTracking -> "Plain", 
        PrivateFontOptions -> {"OperatorSubstitution" -> False}, 
        LineBreakWithin -> False]& )}], 
   Cell[
    StyleData["SuggestionIconTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{
         Thickness[0.05555555555555555], 
         StyleBox[{
           
           FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
             3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO
m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD
jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh
MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z
            "]]}, 
          FaceForm[#]], 
         StyleBox[{
           
           FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
              0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
              3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 
             7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 
             13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, {
             9.741542500000001, 7.416875}, {8.175292500000001, 
             7.416875}}, CompressedData["
1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW
1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa
iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7
2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro
0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/
ACBxmlc=
             "]}]}, 
          FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> 
        Automatic, BaselinePosition -> Scaled[0.1]]& )}], 
   Cell[
    StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], 
    CellMargins -> {{66, 10}, {0, 8}}, 
    StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, 
    CellEventActions -> {
     "ReturnKeyDown" :> 
      With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = 
         Notebooks[
           EvaluationCell[]]}, SelectionMove[
          EvaluationCell[], After, Cell]; 
        NotebookWrite[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, 
          Cell["", "UsageDescription"], All]; 
        SelectionMove[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, 
          CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[
          SelectedNotebook[], After, Cell]; NotebookFind[
          SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
          WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
          SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 
    ShowAutoStyles -> False, ShowCodeAssist -> False, 
    CodeAssistOptions -> {"DynamicHighlighting" -> False}, 
    LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", 
    FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], 
   Cell[
    StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], 
    CellMargins -> {{86, 10}, {7, 0}}, 
    StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> 
    "OutputGrouping", 
    CellEventActions -> {
     "ReturnKeyDown" :> 
      With[{FunctionResourceTools`BuildDefinitionNotebook`Private`nb = 
         Notebooks[
           EvaluationCell[]]}, SelectionMove[
          EvaluationCell[], After, Cell]; 
        NotebookWrite[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, 
          Cell[
           BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; 
        SelectionMove[
         FunctionResourceTools`BuildDefinitionNotebook`Private`nb, Before, 
          CellContents]; Null], {"KeyDown", "\t"} :> Replace[SelectionMove[
          SelectedNotebook[], After, Cell]; NotebookFind[
          SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
          WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
          SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 
    ShowAutoSpellCheck -> False], 
   Cell[
    StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> 
    StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], 
    CellMargins -> {{66, 24}, {9, 7}}, StyleKeyMapping -> {}, 
    DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, 
    GridBoxOptions -> {BaseStyle -> "TableNotes"}], 
   Cell[
    StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], 
    CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], 
    StyleMenuListing -> None, 
    ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
    GridBoxOptions -> {
     FrameStyle -> GrayLevel[0.906], 
      GridBoxAlignment -> {
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}}, 
      GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, 
      GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], 
   Cell[
    StyleData["TableText"], DefaultInlineFormatType -> 
    "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, 
    StyleMenuListing -> None, FontSize -> 14], 
   Cell[
    StyleData["Hyperlink"], FontColor -> 
    RGBColor[0.921569, 0.341176, 0.105882]], 
   Cell[
    StyleData["HyperlinkActive"], FontColor -> 
    RGBColor[0.614379, 0.227451, 0.0705882]], 
   Cell[
    StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[
      If[
       CurrentValue["MouseOver"], 
       RGBColor[0.854902, 0.396078, 0.145098], 
       RGBColor[0.0196078, 0.286275, 0.65098]]]], 
   Cell[
    StyleData["InlineFormula"], 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, 
    SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, 
    FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, 
    ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
    FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, 
    GridBoxOptions -> {
     GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}}], 
   Cell[
    StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> 
    Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, 
    CellGroupingRules -> {"SectionGrouping", 58}, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, 
    CellLabelAutoDelete -> True, TabFilling -> 
    "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, 
    StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, 
    FontSlant -> "Plain", FontColor -> GrayLevel[0.905882]], 
   Cell[
    StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], 
   Cell[
    StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]],
     Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, 
    CellMargins -> {{66, 14}, {15, -5}}, 
    CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> 
    GrayLevel[
      Rational[77, 85]]], 
   Cell[
    StyleData["Subsection"], Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], 
   Cell[
    StyleData["Subsubsection"], Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], 
   Cell[
    StyleData["Comment", StyleDefinitions -> StyleData["Text"]], 
    CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, 
    CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> 
    RGBColor[0.880722, 0.611041, 0.142051], 
    CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], 
    Background -> RGBColor[0.9821083, 0.94165615, 0.87130765]], 
   Cell[
    StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], 
    CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> 
    RGBColor[0.90526255, 0.92601685, 0.9564697]], 
   Cell[
    StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], 
    CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> 
    RGBColor[0.9340271499999999, 0.95373535, 0.87923275]], 
   Cell[
    StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], 
    ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> 
    GrayLevel[0.5]], 
   Cell[
    StyleData["CharactersRefLink"], ShowSpecialCharacters -> False]}, Visible -> 
  False, FrontEndVersion -> 
  "12.0 for Microsoft Windows (64-bit) (April 8, 2019)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Title"->{
  Cell[580, 22, 608, 9, 96, "Title",ExpressionUUID->"70087efc-7871-4cb3-a669-4f7949f069ce",
   CellTags->{"Title", "TabNext"},
   CellID->362346026]},
 "TabNext"->{
  Cell[580, 22, 608, 9, 96, "Title",ExpressionUUID->"70087efc-7871-4cb3-a669-4f7949f069ce",
   CellTags->{"Title", "TabNext"},
   CellID->362346026],
  Cell[1191, 33, 635, 9, 34, "Text",ExpressionUUID->"23955fef-9cf2-4bbc-ace8-c103806b8b0e",
   CellTags->{"Description", "TabNext"},
   CellID->450900334],
  Cell[5737, 151, 298, 6, 27, "UsageInputs",ExpressionUUID->"a85c4f60-0d9c-4a46-8e92-9a5d888c0b18",
   CellTags->"TabNext",
   CellID->341013815],
  Cell[6038, 159, 981, 28, 26, "UsageDescription",ExpressionUUID->"742dc79a-3ed9-4f6e-b9e7-2b6e6e183ecc",
   CellTags->"TabNext",
   CellID->584004037],
  Cell[8315, 220, 653, 11, 35, "Notes",ExpressionUUID->"50cf8114-dbba-436a-8c92-45a4b4356a58",
   CellTags->"TabNext",
   CellID->521904482],
  Cell[23914, 590, 589, 9, 34, "Text",ExpressionUUID->"3f48411e-19dc-4c50-84d7-95531ab73530",
   CellTags->"TabNext",
   CellID->832483124],
  Cell[25340, 625, 519, 8, 31, "Item",ExpressionUUID->"08a9ae85-59d9-404b-a31a-38bb53148fee",
   CellTags->"TabNext",
   CellID->123227828],
  Cell[31407, 800, 588, 9, 31, "Item",ExpressionUUID->"5b4dfc03-5d39-4c27-96ec-9b7a7c6ff066",
   CellTags->"TabNext",
   CellID->79477165],
  Cell[32859, 835, 563, 8, 31, "Item",ExpressionUUID->"8754a631-cbb0-4811-88b5-29f231f0af8f",
   CellTags->"TabNext",
   CellID->960273585],
  Cell[34337, 870, 551, 8, 34, "Text",ExpressionUUID->"cdebd426-053c-465a-9ba4-6560c6b661c5",
   CellTags->"TabNext",
   CellID->343081869],
  Cell[35655, 904, 540, 8, 31, "Item",ExpressionUUID->"c0f4f617-c84f-44bd-85e5-0be5222ad510",
   CellTags->"TabNext",
   CellID->485448166],
  Cell[37718, 964, 564, 8, 34, "Text",ExpressionUUID->"d47a3133-e661-4f75-a625-9bf4eb4a831f",
   CellTags->"TabNext",
   CellID->567921317],
  Cell[39155, 999, 550, 8, 34, "Text",ExpressionUUID->"09cb399d-beff-4b1b-affc-2348a830fe6f",
   CellTags->"TabNext",
   CellID->920818074]},
 "Description"->{
  Cell[1191, 33, 635, 9, 34, "Text",ExpressionUUID->"23955fef-9cf2-4bbc-ace8-c103806b8b0e",
   CellTags->{"Description", "TabNext"},
   CellID->450900334]},
 "Definition"->{
  Cell[1851, 46, 1000, 22, 67, "Section",ExpressionUUID->"78fcea70-ff17-4367-bef0-6f83b80bdaf2",
   CellTags->"Definition",
   CellID->474513213]},
 "Documentation"->{
  Cell[3770, 97, 154, 3, 67, "Section",ExpressionUUID->"b1e68fa7-1c7d-4f5f-bc29-e59b748ac39b",
   CellTags->"Documentation",
   CellID->855965831]},
 "Usage"->{
  Cell[3949, 104, 1763, 43, 53, "Subsection",ExpressionUUID->"cfa7d8a4-d6b9-4bfc-9f4e-af30e76b4eca",
   CellTags->"Usage",
   CellID->643497520]},
 "Details & Options"->{
  Cell[7068, 193, 1244, 25, 53, "Subsection",ExpressionUUID->"1f3bce55-0a4e-49dc-9f1a-674f4944106a",
   CellTags->"Details & Options",
   CellID->66019318]},
 "Examples"->{
  Cell[9017, 237, 6513, 144, 67, "Section",ExpressionUUID->"47610c78-ad2a-45bf-8fa7-97e0228c8e97",
   CellTags->"Examples",
   CellID->180595041]},
 "Source & Additional Information"->{
  Cell[22900, 562, 190, 3, 67, "Section",ExpressionUUID->"718fa7ec-c93f-4111-bd9f-38003aace4fa",
   CellTags->"Source & Additional Information",
   CellID->318391102]},
 "Contributed By"->{
  Cell[23115, 569, 796, 19, 53, "Subsection",ExpressionUUID->"2cdb8c41-1cb8-4830-aacf-4e4effc97303",
   CellTags->"Contributed By",
   CellID->127820888]},
 "Keywords"->{
  Cell[24540, 604, 797, 19, 53, "Subsection",ExpressionUUID->"ecf567d6-7369-47fd-a70e-cfe38cd1fc51",
   CellTags->"Keywords",
   CellID->547400482]},
 "Categories"->{
  Cell[25896, 638, 181, 4, 53, "Subsection",ExpressionUUID->"6e7c1451-5d94-4df8-80c0-451cabb1197e",
   CellTags->"Categories",
   CellID->749076926]},
 "CategoriesCell"->{
  Cell[26080, 644, 4513, 130, 274, "Output",ExpressionUUID->"31ebd0d5-cb63-4e29-b2f0-510251a5aee6",
   CellTags->"CategoriesCell",
   CellID->379366600]},
 "Related Symbols"->{
  Cell[30630, 779, 774, 19, 53, "Subsection",ExpressionUUID->"760f0f2c-1541-4b9d-abaf-70b0a9de66ac",
   CellTags->"Related Symbols",
   CellID->161079978]},
 "Related Resource Objects"->{
  Cell[32032, 814, 824, 19, 53, "Subsection",ExpressionUUID->"2fb79ca1-8731-4f69-8eb0-f0fb5dbf9abb",
   CellTags->"Related Resource Objects",
   CellID->588449267]},
 "Source/Reference Citation"->{
  Cell[33459, 848, 875, 20, 53, "Subsection",ExpressionUUID->"9cf52c61-5720-4521-9ab2-9ad1d17d2a2e",
   CellTags->"Source/Reference Citation",
   CellID->642091068]},
 "Links"->{
  Cell[34925, 883, 727, 19, 53, "Subsection",ExpressionUUID->"93c919cb-488c-4641-b194-6e044edc5988",
   CellTags->"Links",
   CellID->521525586]},
 "Tests"->{
  Cell[36232, 917, 880, 21, 53, "Subsection",ExpressionUUID->"78395eff-37c5-478e-92bb-0a078f0e1ffa",
   CellTags->"Tests",
   CellID->74308299]},
 "Author Notes"->{
  Cell[37533, 958, 182, 4, 67, "Section",ExpressionUUID->"4e6e2d43-6847-458d-add6-ec6770690e9f",
   CellTags->"Author Notes",
   CellID->795110225]},
 "Submission Notes"->{
  Cell[38319, 977, 833, 20, 67, "Section",ExpressionUUID->"edb2fdca-20be-4607-8665-acfff77a8133",
   CellTags->"Submission Notes",
   CellID->843283583]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Title", 227641, 4545},
 {"TabNext", 227806, 4549},
 {"Description", 229700, 4589},
 {"Definition", 229874, 4593},
 {"Documentation", 230042, 4597},
 {"Usage", 230203, 4601},
 {"Details & Options", 230374, 4605},
 {"Examples", 230547, 4609},
 {"Source & Additional Information", 230733, 4613},
 {"Contributed By", 230923, 4617},
 {"Keywords", 231094, 4621},
 {"Categories", 231261, 4625},
 {"CategoriesCell", 231433, 4629},
 {"Related Symbols", 231610, 4633},
 {"Related Resource Objects", 231798, 4637},
 {"Source/Reference Citation", 231996, 4641},
 {"Links", 232175, 4645},
 {"Tests", 232334, 4649},
 {"Author Notes", 232499, 4653},
 {"Submission Notes", 232672, 4657}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 608, 9, 96, "Title",ExpressionUUID->"70087efc-7871-4cb3-a669-4f7949f069ce",
 CellTags->{"Title", "TabNext"},
 CellID->362346026],
Cell[1191, 33, 635, 9, 34, "Text",ExpressionUUID->"23955fef-9cf2-4bbc-ace8-c103806b8b0e",
 CellTags->{"Description", "TabNext"},
 CellID->450900334],
Cell[CellGroupData[{
Cell[1851, 46, 1000, 22, 67, "Section",ExpressionUUID->"78fcea70-ff17-4367-bef0-6f83b80bdaf2",
 CellTags->"Definition",
 CellID->474513213],
Cell[2854, 70, 879, 22, 86, "Input",ExpressionUUID->"e4c01350-a6fe-4d84-8277-254dde81842d",
 CellID->304931571]
}, Open  ]],
Cell[CellGroupData[{
Cell[3770, 97, 154, 3, 67, "Section",ExpressionUUID->"b1e68fa7-1c7d-4f5f-bc29-e59b748ac39b",
 CellTags->"Documentation",
 CellID->855965831],
Cell[CellGroupData[{
Cell[3949, 104, 1763, 43, 53, "Subsection",ExpressionUUID->"cfa7d8a4-d6b9-4bfc-9f4e-af30e76b4eca",
 CellTags->"Usage",
 CellID->643497520],
Cell[CellGroupData[{
Cell[5737, 151, 298, 6, 27, "UsageInputs",ExpressionUUID->"a85c4f60-0d9c-4a46-8e92-9a5d888c0b18",
 CellTags->"TabNext",
 CellID->341013815],
Cell[6038, 159, 981, 28, 26, "UsageDescription",ExpressionUUID->"742dc79a-3ed9-4f6e-b9e7-2b6e6e183ecc",
 CellTags->"TabNext",
 CellID->584004037]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7068, 193, 1244, 25, 53, "Subsection",ExpressionUUID->"1f3bce55-0a4e-49dc-9f1a-674f4944106a",
 CellTags->"Details & Options",
 CellID->66019318],
Cell[8315, 220, 653, 11, 35, "Notes",ExpressionUUID->"50cf8114-dbba-436a-8c92-45a4b4356a58",
 CellTags->"TabNext",
 CellID->521904482]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9017, 237, 6513, 144, 67, "Section",ExpressionUUID->"47610c78-ad2a-45bf-8fa7-97e0228c8e97",
 CellTags->"Examples",
 CellID->180595041],
Cell[CellGroupData[{
Cell[15555, 385, 111, 1, 53, "Subsection",ExpressionUUID->"c00b2def-9649-44fb-ae46-09b4303bb783",
 CellID->462042388],
Cell[15669, 388, 178, 2, 34, "Text",ExpressionUUID->"a36f21ce-de9d-4d11-bf4b-6b35a8124f25",
 CellID->13078159],
Cell[CellGroupData[{
Cell[15872, 394, 287, 6, 28, "Input",ExpressionUUID->"570f1661-6c99-4b8c-9332-84d0a6fe6389",
 CellID->443871870],
Cell[16162, 402, 1883, 27, 109, "Output",ExpressionUUID->"bfdf5818-7979-41cb-aa29-139ad5920363",
 CellID->713311768]
}, Open  ]],
Cell[18060, 432, 182, 2, 34, "Text",ExpressionUUID->"5a03d9c6-21e8-4450-99d9-d58d28451758",
 CellID->373103848],
Cell[CellGroupData[{
Cell[18267, 438, 262, 5, 28, "Input",ExpressionUUID->"4126a292-f300-40ec-9874-7d89fdc98dc7",
 CellID->41266861],
Cell[18532, 445, 2231, 45, 54, "Output",ExpressionUUID->"7334e791-43bf-4ca8-9956-24f4736c36d2",
 CellID->146647552]
}, Open  ]],
Cell[20778, 493, 228, 4, 34, "Text",ExpressionUUID->"2c78ff40-f7f3-4848-982d-4c0dd6eece88",
 CellID->60954047],
Cell[CellGroupData[{
Cell[21031, 501, 276, 6, 28, "Input",ExpressionUUID->"db25d697-aebe-4286-9263-f1195110afe0",
 CellID->418152492],
Cell[21310, 509, 219, 5, 32, "Output",ExpressionUUID->"e37da2a9-2060-4423-a68c-e1e8902d0b2d",
 CellID->407093734]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21578, 520, 102, 1, 53, "Subsection",ExpressionUUID->"9582da32-f37b-4d2e-8f4d-17bb5d259cd5",
 CellID->964056545],
Cell[21683, 523, 204, 4, 34, "Text",ExpressionUUID->"420f3c8a-0466-4e26-990a-047361e5fb25",
 CellID->649685796],
Cell[CellGroupData[{
Cell[21912, 531, 195, 4, 28, "Input",ExpressionUUID->"d53e6065-9347-4c53-921d-ed8f16f7fba5",
 CellID->836153427],
Cell[22110, 537, 159, 3, 32, "Output",ExpressionUUID->"e8e84b47-a8c1-469b-9406-3d7d7e875384",
 CellID->147179208]
}, Open  ]]
}, Open  ]],
Cell[22296, 544, 104, 1, 53, "Subsection",ExpressionUUID->"42e7af10-d41c-4a88-a19c-021d7a901063",
 CellID->776923543],
Cell[22403, 547, 109, 1, 37, "Subsection",ExpressionUUID->"99f3872f-4d56-4a7c-bd73-4220819719a5",
 CellID->568056528],
Cell[22515, 550, 121, 1, 37, "Subsection",ExpressionUUID->"fffaf27f-6150-4b0e-9d96-4bad477d1d28",
 CellID->754506620],
Cell[22639, 553, 111, 1, 37, "Subsection",ExpressionUUID->"411de50e-2d7c-4bad-a81d-5e6ba099b270",
 CellID->92483860],
Cell[22753, 556, 110, 1, 37, "Subsection",ExpressionUUID->"b27395ef-c2de-4269-aab9-2196245045fb",
 CellID->540091361]
}, Open  ]],
Cell[CellGroupData[{
Cell[22900, 562, 190, 3, 67, "Section",ExpressionUUID->"718fa7ec-c93f-4111-bd9f-38003aace4fa",
 CellTags->"Source & Additional Information",
 CellID->318391102],
Cell[CellGroupData[{
Cell[23115, 569, 796, 19, 53, "Subsection",ExpressionUUID->"2cdb8c41-1cb8-4830-aacf-4e4effc97303",
 CellTags->"Contributed By",
 CellID->127820888],
Cell[23914, 590, 589, 9, 34, "Text",ExpressionUUID->"3f48411e-19dc-4c50-84d7-95531ab73530",
 CellTags->"TabNext",
 CellID->832483124]
}, Open  ]],
Cell[CellGroupData[{
Cell[24540, 604, 797, 19, 53, "Subsection",ExpressionUUID->"ecf567d6-7369-47fd-a70e-cfe38cd1fc51",
 CellTags->"Keywords",
 CellID->547400482],
Cell[25340, 625, 519, 8, 31, "Item",ExpressionUUID->"08a9ae85-59d9-404b-a31a-38bb53148fee",
 CellTags->"TabNext",
 CellID->123227828]
}, Open  ]],
Cell[CellGroupData[{
Cell[25896, 638, 181, 4, 53, "Subsection",ExpressionUUID->"6e7c1451-5d94-4df8-80c0-451cabb1197e",
 CellTags->"Categories",
 CellID->749076926],
Cell[26080, 644, 4513, 130, 274, "Output",ExpressionUUID->"31ebd0d5-cb63-4e29-b2f0-510251a5aee6",
 CellTags->"CategoriesCell",
 CellID->379366600]
}, Open  ]],
Cell[CellGroupData[{
Cell[30630, 779, 774, 19, 53, "Subsection",ExpressionUUID->"760f0f2c-1541-4b9d-abaf-70b0a9de66ac",
 CellTags->"Related Symbols",
 CellID->161079978],
Cell[31407, 800, 588, 9, 31, "Item",ExpressionUUID->"5b4dfc03-5d39-4c27-96ec-9b7a7c6ff066",
 CellTags->"TabNext",
 CellID->79477165]
}, Open  ]],
Cell[CellGroupData[{
Cell[32032, 814, 824, 19, 53, "Subsection",ExpressionUUID->"2fb79ca1-8731-4f69-8eb0-f0fb5dbf9abb",
 CellTags->"Related Resource Objects",
 CellID->588449267],
Cell[32859, 835, 563, 8, 31, "Item",ExpressionUUID->"8754a631-cbb0-4811-88b5-29f231f0af8f",
 CellTags->"TabNext",
 CellID->960273585]
}, Open  ]],
Cell[CellGroupData[{
Cell[33459, 848, 875, 20, 53, "Subsection",ExpressionUUID->"9cf52c61-5720-4521-9ab2-9ad1d17d2a2e",
 CellTags->"Source/Reference Citation",
 CellID->642091068],
Cell[34337, 870, 551, 8, 34, "Text",ExpressionUUID->"cdebd426-053c-465a-9ba4-6560c6b661c5",
 CellTags->"TabNext",
 CellID->343081869]
}, Open  ]],
Cell[CellGroupData[{
Cell[34925, 883, 727, 19, 53, "Subsection",ExpressionUUID->"93c919cb-488c-4641-b194-6e044edc5988",
 CellTags->"Links",
 CellID->521525586],
Cell[35655, 904, 540, 8, 31, "Item",ExpressionUUID->"c0f4f617-c84f-44bd-85e5-0be5222ad510",
 CellTags->"TabNext",
 CellID->485448166]
}, Open  ]],
Cell[CellGroupData[{
Cell[36232, 917, 880, 21, 53, "Subsection",ExpressionUUID->"78395eff-37c5-478e-92bb-0a078f0e1ffa",
 CellTags->"Tests",
 CellID->74308299],
Cell[CellGroupData[{
Cell[37137, 942, 184, 4, 28, "Input",ExpressionUUID->"7079aefe-efc8-475b-a739-8727047ddfa7",
 CellID->667877521],
Cell[37324, 948, 148, 3, 32, "Output",ExpressionUUID->"2fa79b2b-ef61-42fc-8c9c-3e17adf32522",
 CellID->993233288]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37533, 958, 182, 4, 67, "Section",ExpressionUUID->"4e6e2d43-6847-458d-add6-ec6770690e9f",
 CellTags->"Author Notes",
 CellID->795110225],
Cell[37718, 964, 564, 8, 34, "Text",ExpressionUUID->"d47a3133-e661-4f75-a625-9bf4eb4a831f",
 CellTags->"TabNext",
 CellID->567921317]
}, Open  ]],
Cell[CellGroupData[{
Cell[38319, 977, 833, 20, 67, "Section",ExpressionUUID->"edb2fdca-20be-4607-8665-acfff77a8133",
 CellTags->"Submission Notes",
 CellID->843283583],
Cell[39155, 999, 550, 8, 34, "Text",ExpressionUUID->"09cb399d-beff-4b1b-affc-2348a830fe6f",
 CellTags->"TabNext",
 CellID->920818074]
}, Open  ]]
}, Open  ]]
}
]
*)

